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EDITORIAL 


Comme vous le savez, PPC Paris va bientôt assumer son vénérable âge de dix 
ans. Dans des précédents numéros, nous vous avons déjà parlé de notre souhait 
d'organiser une grande fête pour célébrer l’évenement. Ce sera avant tout 
l’occasion révée pour rencontrer de nombreuses personalités du monde HP, ainsi 
que de nombreux membres de PPC Paris ou des clubs étrangers. Un des grands 
évenements de ces deux jours sera notre tournoi de programmes, basé sur un jeu 
inédit mais prenant ses sources dans l'informatique. Bien sûr, ce concours sera 
primé, plusieurs sociétés nous ayant déjà promis d'offrir de nombreux lots de 
grande valeur pour les vainqueurs. Il y aura d’autres événements, mais nous en 
reparlerons plus précisement le mois prochain. 


Nos machines évoluant, il est logique que le journal évolue lui aussi. A partir de 
ce mois-ci, vous trouverez à la fin du journal une nouvelle formule de notre Coin 
des Lex. Ouvert à toutes les machines, et non plus uniquement au HP-71, ces 
pages vous permettront d’entrer vos programmes, sans utilitaire de 
développement, de la manière la plus fiable possible. Nous attendons vos 
commentaires sur cette nouvelle formule (particulièrement de la part des 
utilisateurs de HP-48). 


Terminons cet éditorial par une note un peu pessimiste. Pratiquement tous les 
clubs éditant régulièrement un journal sont confrontés à un même problème : le 
manque quasi total de réception d’articles de la part de leurs membres. Certains 
journaux ne paraissent plus que de façon épisodique, ou sont contraints 
d'afficher une page blanche avec pour seule mention "mettez votre article ici", 
comme l’a fait dernièrement le club Hollandais Prompt HP-GC. Si, aujourdh’hui 
PPC Paris est le seul grand club réussissant à faire paraître son journal tous les 
mois, cela est dû au travail acharné d’un petit groupe de personnes, commençant 
à être à court d'idées pour les articles. Si vous voulez que le journal continue à 
sortir régulièrement, il n’y a qu’une seule méthode : Envoyez nous des articles ! 


Le bureau 
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L'ANNIVERSAIRE 


Comme nous vous l’avions annoncé il y a quelque 
temps, nous allons organiser une grande fête pour 
célébrer les 10 ans de PPC Paris. 


Elle aura lieu les samedi 30 et dimanche 31 janvier 
1993, à notre lieu de réunion habituel, le centre Jean 
Verdier (voir l'adresse dans les pages centrales) qui 
ouvrira exceptionnellement ses portes ce dimanche 
pour l’occasion. 


Au programme, outre le tournoi de machines dont 
vous trouverez le sujet plus loin et notre assemblée 
générale, il y aura des expositions, des présentations 
de matériels ou de logiciels, ainsi que quelques 
surprises dont nous garderons le secret jusqu’au jour 
J. Le programme n’est pas encore totalement fixé, 
alors si vous avez une réalisation totalement délirante 
à présenter, ne vous faites pas prier. 


Un autre évenement, qui aura lieu le samedi soir, sera 
le banquet, organisé dans un très bon (sinon un 
“grand") restaurant parisien. Attention, le nombre de 
places risquant d’être limité, nous vous conseillons de 
vous inscrire dès à présent. 


Bien sûr, que nos amis provinciaux ou étrangers ne 
s'inquiètent pas, nous avons déjà pris des contacts 
auprès des hotels proches du lieu de la réunion et 
pouvons réserver le nombre de chambres nécessaire. 
Comptez un prix de base de 300 F environ par nuit. 


Evidement, organiser une telle manifestation coûte 
cher. A titre indicatif, la location de la salle nous 
coûte l’équivalent de deux ans de location de notre 
salle habituelle ! Nous aurions voulu l’éviter, mais 
nous pensons que vous comprendrez que nous 
devrons vous demander une participation aux frais. 
Nous avons décidé de la fixer à 150 F (100 F pour les 
étudiants). Pour ce prix, vous aurez droit, entre 
autres, aux diverses boissons et nouritures vous 
permettant de tenir le coup pendant ces deux jours. 


Vous trouverez avec ce journal une fiche d’inscription 
à nous retourner avant le ler Janvier (15 décembre 
pour ceux qui doivent se faire héberger). Mais plus 
vite vous nous la retournerez, plus vite nous saurons 
combien il y aura de personnes présentes, et plus 
belle sera la fête. 


Si vous hésitez pour venir à cette fête, je ne ferai 
qu’une seule remarque : il vous faudra attendre 2003 
pour la prochaine ! 


Jacques Belin (123) 
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METTEZ UN VIRUS DANS 
VOTRE HP 


Non, ne vous inquiétez pas ! Nous ne vous proposons 
pas mettre un de ces infâmes programmes 
destructeurs de mémoire dans votre machine, mais 
Virus est le nom du jeu qui servira de pretexte à notre 
tournoi de programmes et qui a été spécialement créé 
pour l’occasion... 


Règle du jeu 
Présentation 
Ce jeu est très inspiré du Jeu de la Vie, un exercice 
informatique consistant à simuler la vie et la mort 


d’une colonie de bactéries. 


Virus reprend le principe de ce jeu, en le simplifiant 
et en permettant de jouer contre un adversaire. 


Le but du jeu est de posséder, en fin de partie, plus de 
pions que son adversaire sur le plateau. 

Le Matériel 

Le jeu se déroule sur un espace de 8x8 = 64 cases. 


Une zone centrale de 12 cases est définie pour le 
placement des premiers pions en début de partie : 


— FU NF UT ON = 00 





ABCDEFGH 


Les joueurs disposent de 58 pions, blancs d’un coté et 
noirs de l’autre. Le joueur blanc dipose en plus de 3 
pions blancs marqués d’une étoile (les Virus), le 
joueur noir dispose aussi de 3 Virus de couleur noire. 


Début de la partie 


Le premier joueur dispose 3 bactéries noires dans la 
zone centrale du plateau de jeu, puis le second joueur 
place 3 bactéries dans cette même zone. Les deux 
joueurs doivent respecter les règles de vie pour ces 
placements. 


Après ce stade, chaque joueur placera un bactérie à 
tour de rôle. 


Règles de vie des bactéries 


Une bactérie en cotoie une autre si cette derniere est 
sur une des 8 cases voisines : 





Une bactérie ne peut vivre que si : 


- Elle cotoie au moins une bactérie (ou un Virus) de 
sa couleur : 

- Elle cotoie moins de quatre bactéries de la couleur 
oposée. 





M." : Cases possibles pour Blanc 


Certaines cases ne peuvent être occupées par aucune 
bactérie, car elles peuvent être entourées par 4 
bactéries de chaque couleur : 





La case centrale n’est viable pour 
aucun des deux joueurs 


Chaque joueur dispose de 3 bactéries particulières : 
les Virus. Ils sont immortels. Cela implique qu’on 
peut les placer sur n’importe quelle case libre, même 
si il n’y a pas de bactérie de sa couleur dans ce 
secteur, et qu’ils ne peuvent pas être tués par les 
pions de la couleur opposée. Ils peuvent donc, par 
exemple, occuper la case décrite précédement et 
participer à l’élimination des bactéries adverses. 


Prise des bactéries adverses 


Un joueur peut "tuer" une bactérie adverse en 
lentourant de quatre bactéries de sa couleur. La 
bactérie est immédiatement retirée du jeu. La case 
qu’elle occupait pourra être occupée ultérieurement 
par une autre bactérie de n’importe quelle couleur (à 
condition de satisfaire aux exigences des règles de 
vie). 


Exemple : 


1) Position initiale 


2) Blanc place La 
bactérie ‘0’ 


4) Configuration 
Finale 


3) La bactérie ’X’ 
est tuée 


Un joueur peut tuer plusieurs bactéries adverses si, 
par le placement d’une seule bactérie, il faire en sorte 
que plusieurs bactéries adverses soient entourées de 4 
pions de sa couleur. 


Exemple : 





2) Blanc place la 
bactérie ‘’o’ 





3) Les bactérie ’X’ 
sont tuées 


&) Configuration finale 


Les règles de vie indiquent qu’une bactérie ne peut 
vivre si elle est isolée. Ceci implique que si une 
bactérie tuée rend une autre bactérie isolée, celle-ci 
est aussi tuée immédiatement. 
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Exemple : 


1) Position initiale 


2) Blanc place la 
bactérie ’o’ 


3) La bactérie ’X’ 
est tuée 


4) La bactérie ’X' est 
aussi tuée 





5) Configuration finale 


Un joueur ne peut pas placer un pion de sa couleur 
dans une case entourée d’au moins quatre bactéries 
adverses, même si, par cette pose de pion, il tuerait 
une de ces bactéries adverses : 





Case marquée par ’.! interdite 
pour blanc 


Passage de tour 

Les joueurs sont obligés de jouer à chaque tour. 
Toutefois, lorsqu'un joueur ne dispose plus de case 
libre où une de ses bactéries serait viable, et qu’il ne 
dispose plus de Virus en réserve, il passe son tour. 


Fin de la partie 


Lorsque tous les Virus out été joués et qu’il n’y a plus 
de possibilité de placement ou de prise de pions 
adverse dans certaines zones contrôlées par une 
seule, couleur, les colonies peuvent se développer 
librement dans ces zones. Les joueurs, d’un commun 
accord, peuvent donc ajouter ensemble les dernières 
bactéries de façon à remplir le tableau de jeu 
(toujours en respectant les règles de vie) et compter 
le nombre de pions de chaque couleur. 
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Le gagnant est celui qui dispose du plus grand 
nombre de pions sur le plateau. 


Extraits du règlement du tournoi 


Le concours est ouvert à tous les utilisateurs de 
calculateurs et ordinateurs de poche 
Hewlett-Packard. 


- Chaque case est repérée en suivant les conventions 
du jeu d’echecs : lettres (de À à H) en abscisse et 
chiffres (de 1 à 8) en ordonnée. Les machines doivent 
communiquer leurs coups en donnant ces 
coordonnées. 


- La position de départ est librement choisie par le 
programme, tout en restant limité à la zone fixée par 
les règles de Virus. 


- Afin de rendre les parties reproductibles en cas de 
litige, les programmes utilisant des algorithmes 
possédant une possibilité de choix aléatoire sont 
interdits. 


- On ne peut changer aucun paramètre interne du 
programme en cours de partie. Si un programme 
demande l'entrée d’un ou plusieurs éléments 
exterieurs (cartes mémoire, disquette, tables de 
paramètres), ceus-ci doivent être clairement 
référencés de façon identique sur par le programme 
et sur l'élément exterieur. 


- Chaque machine dispose d’un temps de reflexion 
limité pour jouer chaque partie (indépendant du 
temps de reflexion de l’autre concurrent). Ce temps 
est fixé à 30 minutes. 


- Chaque participant dispute 5 parties. 
- Une victoire vaut deux points, un match nul un point 


et une défaite zéro. Le vainqueur est le concurent 
possédant le plus de points. 


La version complète du règlement sera envoyée à 
toutes les personnes inscrites au tournoi, ainsi qu’à 
toutes celles qui en feront la demande. 


Jacques Belin (123) 


Note (simple précaution, mais on ne sait jamais !) : Les droits de 
ce jeu sont réservés par PPC Paris. 


HP-48 


G. Toublanc 
L. Grand 
L. Grand 
G. Toublanc 
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LES DIFERENTS MODES 
DE PROGRAMMATION 


Le pour et le contre 


Nos HP-48 et HP-28 nous offrent deux langages de 
programmation que l’on peut utiliser naturellement 
en les mélangeant: RPN et Algebraic. D'autre part il 
est possible d’utiliser des variables locales et aussi de 
faire des programmes récursifs. 


Chaque mode a ses avantages et ses inconvénients : 


RPN 


Pour : occupation mémoire moindre et exécution plus 
rapide que l’Algebraic si le programme est conçu 
correctement. 


Contre : demande au programmeur une petite 
période d’adaptation puis une attention très soutenue 
pour suivre l’évolution de la pile. Listings difficiles à 
comprendre sans commentaires. 


Algebraic 

Pour : traduction naturelle des formules. Facilite la 
tâche du programmeur. Listings plus faciles à 
comprendre que ceux réalisés en RPN. 

Contre : occupation mémoire plus importante et 
exécution plus lente que la RPN. 

Utilisation des variales locales 

Pour : traduction naturelle des formules. Facilite la 
tâche du programmeur. Listings assez faciles à 
comprendre. 

Contre : occupation mémoire plus importante surtout 
si lon utilise des noms très explicites et longs. 
Exécution plus lente. 


Programmes récursifs 


Pour : valeur esthétique. Pour certains problèmes 
méthode presqu’incontournable. 


Contre : à l'exécution l'occupation mémoire peut être 
importante comme le résultat peut se faire attendre. 
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Pour illustrer ce qui a été dit ci-dessus je vais prendre 
comme exemple un ensemble de programmes publiés 
dans JPC 76 sous la signature de notre ami Asdin 
Aoufi. Il s’agit des programmes contenus dans les 
deux articles Nombres de Bernoulli et Intégrales 
eulériennes complexes et où sont utilisés les différents 
types de programmation énumérés ci-dessus ce qui 
constitue un très bon exemple. 


Le type de programmation (Algebraic) choisi par 
Asdin a l’avantage de permettre un suivi assez facile 
entre les formules et le programme sans que celui-ci 
soit commenté. 


Pour mettre en évidence les inconvénients j'ai traduit 
en RPN pure les différents programmes, listant 
alternativement les deux types. A la lecture on 
constatera que la RPN est moins gourmande en 
octets mais faute de commentaires est aussi moins 
compréhensible. 


Lorsque qu’une programmation sera un mixage de 
RPN et d’Algébrique elle conservera cette dernière 
dénomination par opposition à la RPN pure. 


BETA (algébrique, par Asdin, 115 octets) 


SR 
« ! (GAMMACX)+GAMMA(y))/GAMMACx+y) ? 
NUM 
» 


» 


BETA (RPN, par Guy, 53 octets) 


« DUP2 + GAMMA SWAP GAMMA ROT GAMMA + SWAP / 


» 


GAMMA (algébrique, par Asdin, 224.5 octets) 


«+ 2z 
« !LNC2*n)/2+(z-.5)*LNCZ)-z' -NUM 
1 13 
FOR m 
1B(m+ 2,1)/(BCm2,2)*2*m*(2*m-1)*z"(2*m-1))! 
NUM + 
NEXT EXP 
» 


» 


GAMMA (RPN, par Guy, 167 octets) 


« .5 OVER - OVER LN * OVER + x -NUM 2 * LN 
2 / SMAP - B 5 1 14 
FOR m 
GETI 3 ROLLD GETI 4 ROLL SWAP 2 m * DUP 
1 - 8 PICK OVER * * * * / 4 ROLL + 3 ROLLD 


NEXT 
DROP2 EXP SWAP DROP 


» 


BER (algébrique, par Asdin, 513.5 octets) 


« + indice 
« { } indice 2 + + 2 + O0 CON + ber 
« 1 ’ber(1, 1)’ STO 1 ’ber(1,2)' STO -1 
‘ber(2,1)’ STO 2 ’ber(2,2)’ STO 1 indice 
FRp12p*-21p1- 
FOR L 
IFp1> 
THEN 2p * 1 + 2 | * COMB ’ber(l+2,1)’ -NUM 
* fber(l+2,2)' -NUM SIMPLIFIE SOMME 
END 
NEXT 2 p * 1 + * NEG SIMPLIFIE ’ber(p+2, 2)’ 
STO ‘’ber(p+2,1)' STO 
NEXT ber 


BER (RPN, par Guy, 286 octets) 


« DUP 2 + 2 DUP -+LIST 0 CON 1 DUP PUTI 1 PUTI 
-1 PUTI 2 PUT 1 ROT 
FRp12p*-21p1- 
FOR 
IFp1> 
THEN 2p * 1 +2 L * COMB 4 PICK 2 L OVER + * 
1 - GETI 3 ROLLD GET ROT ROT * SWAP 
SIMPLIFIE SOMME 
END 
NEXT 2 p * 1 + * NEG SIMPLIFIE SWAP ROT 2 p 
OVER + * 1 - ROT PUTI ROT PUT 
NEXT 


» 


SOMME (Variables locales, par Asdin, 142.5 octets) 


« + n1 di n2 d2 
« d1 d2 PPCM + ppcm 
« n1 ppem * di 
/ nè ppem * d2 / + ppcm SIMPLIFIE 
» 
» 


» 


SOMME (Sans variables locales, par Guy, 75 octets) 


« 3 PICK OVER PPCM ROT OVER * ROT / 4 ROLLD ROT 
OVER * ROT / ROT + SWAP SIMPLIFIE 


» 


SIMPLIFIE (Variables locales, par Asdin, 181.5 octets) 


«-nd 
« n d PGCD + pgcd 
« n pgcd / d pgcd / + nn dd 
« 
IF dd 0 < 
THEN nn NEG ‘nn’ STO dd NEG ’dd’ STO 
END nn dd 


SIMPLIFIE (Sans variables locales, par Guy, 35 octets) 


« DUP2 PGCD ROT OVER / 3 ROLLD / » 


PPCM (Variables locales, par Asdin, 57 octets) 


«+ab 
« a b * a b PGCD / 


» 


PPCM (Sans variables locales, par Guy, 25 octets) 


« DUP2 PGCD / * » 


PGCD (Programmation récursive, par Asdin, 50 octets) 


« DUP 0 == 
IF 
THEN DROP 
ELSE SWAP OVER MOD PGCD 
END 


PGCD (Prog. non récursive, par Guy, 35 octets) 


« WHILE SWAP OVER MOD DUP 
REPEAT 
END DROP 


L'ensemble des programmes mis dans un répertoire 
occupe 1356 octets pour Asdin contre 748 octets pour 
Guy. Le gain en faveur de la RPN pure est donc très 
appréciable et peut même être très fort dans le cas du 
programme SIMPLIFIE : 
101.5 octets pour la version avec variables locales. 
35 octets pour la version sans variables locales. 
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Voyons quelques résultats côté rapidité : 


Pour trouver le PGCD de 13! et 14! il faut : 
075 seconde avec la méthode récursive. 
024 seconde avec la méthode non récursive. 


Pour simplifier 13!/14! il faut : 
0.137 seconde avec les variabes locales plus la 
récursivité (appel de PPCM et PGCD). 

0.0427 seconde avec la RPN pure. 


Pour 13 8ER le résultat est trouvé en : 
63.3 secondes pour l’algébrique. 
26.5 secondes pour la RPN. 


Pour 5 GAMMA le résultat est trouvé en : 
3.3 secondes pour l’algébrique. 
1.8 seconde pour la RPN. 


Pour 2 2 8ETA le résultat est trouvé en : 
9.8 secondes pour l’algébrique. 
5 seconde pour la RPN. 


Pour (5,5) GAMMA le résultat est trouvé en : 
5.5 secondes pour l’algébrique. 
4.2 seconde pour la RPN. 


L'avantage est toujours pour la RPN pure, le gain de 
rapidité allant parfois dans le rapport de 1 à 3. La 
rapidité est, souvent, inversement proportionnelle à 
l'encombrement mémoire. 


Conclusion : 


Aucune méthode n’est à écartée à priori. Si on doit 
programmer une formule qui ne sera utilisée que 
temporairement et ne comportant pas de très 
nombreuses itérations alors la programmation de type 
algébrique est tout à fait indiquée. Nos HP48 nous 
aident dans ce sens avec la possibilité de réaliser des 
fonctions utilisateur. Si on envisage la constitution 
d’une librairie de programmes à usage fréquent, 
d’encombrement mémoire important et d’exécution 
assez longue alors je pense qu’il faudra faire l’effort 
de penser RPN. Ceci peut faciliter la tâche pour le 
passage de la User Rpn à la RPN. 


Tous les types de programmation sont les bienvenus 
dans JPC. Certains programmeurs peuvent avoir déjà 
utilisé d’autres langages avec d’autres machines et 
donc se sentent plus à l’aise, sur HP48, avec un type 
donné de programmation. Il n’est pas rare qu’un 
même programme soit repris par plusieurs dans 
différents modes et avec des améliorations. Cette 
pratique c’est maintes fois réalisée dans JPC et en 
particulier lors du passage du langage Basic à 
l'assembleur sur HP-71, le même mérite revenant au 
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créateur du programme en Basic et au programmeur 
en assembleur. 


Alors faites feu de tout bois. 


Guy Toublanc (276) 





UN COMPILATEUR "MAISON" 


Dans son article Débuter en RPL du JPC 80, 
Monsieur Guy Toublanc a fait une brève référence au 
compilateur que j'ai écrit. Ce compilateur, que j'ai 
simplement appelé HP-48, tourne sur tout système 
compatible MS-DOS. Il presque totalement 
compatible avec les HP TOOLS (à traduire : les outils 
de HP). Pour les initiés, les principales différences 
résident dans les déclarations de constantes, 
notamment des adresses que l’on utilise dans les 
parties écrites en assembleur. 


Toutefois, HP-48 a lavantage, par rapport aux 
HP TOOLS, de permettre des parties en langage 
RPL conventionnel, c’est-à-dire des parties conformes 
aux règles établies par les manuels d’utilisation de la 
machine. Un simple exemple de cet avantage est le 
problème suivant : on aimerait insérer dans un 
programme une expression symbolique (par exemple 
!SIN(X)'). Je ne sais toujours pas comment on le fait 
avec les HP TOOLS, mais ceci devient évident avec 
xp-48 : il suffit d’insérer les lignes : 


USRRPL 
?SINCX)' 


La première ligne n’étant pas obligatoire si l’on est 
déjà en mode RPL conventionnel. Un exemple de 
programme est donné dans l’article Fast-orielles de ce 
numéro. 


Si vous êtes intéressé par ce compilateur, vous pouvez 
en obtenir une copie "non-enrgistrée" auprès de PPC 
Paris (pour la France) ou de moi-même (pour la 
Suisse), moyennant une enveloppe affranchie à votre 
nom et une disquette 3"1/2 formatée DOS. Si vous 
désirez une copie à votre nom, il vous suffit de me 
faire parvenir votre adresse ainsi que l'équivalent de 
30 francs suisses (c’est-à-dire soit 100 FF, soit 20 
dollars américains). L’attrait de la version 
non-enregistrée réside sans aucun doute dans son 
prix. Celui de la version personnelle est le fait que 
vous recevrez automattiquement et gratuitement la 
prochaine version du compilateur. 


Voici mon adresse personnelle : 


Laurent Grand 
Chemin du Borgeaux 
1817 Brent 
SUISSE 


Pour ceux d’entre vous qui ont accès aux réseaux 
informatiques mondiaux, vous trouverez la version 
non-enregistrée de HP-48 sur le serveur 


seq.uncnil.edu 
username: anonymous 
password: <votre adresse E-mail> 


et dans le répertoire hp48/hp48-compi ler. 


Une dernière précision : 
fournis est en anglais. 


la documentation que je 


Laurent Grand (516) 





FAST-ORIELLES 


Il y a des sujets qui, comme les calculs sur les 
polynômes, réapparaissent périodiquement dans les 
journaux spécialisés. Le calcul de factorielles avec 
tous le chiffres significatifs en fait partie. A une 
certaine époque (cf JPC 65 et JPC 67), les meilleurs 
résultats étaient aux alentours de deux minutes et 
demie pour le calcul de 100! sur une HP-28S en 
double vitesse. 


Dès lors, jugeant qu’une telle performance n’était pas 
digne de cette machine, je décidais d’écrire mon 
propre programme de factorielle, mais, contrairement 
aux programmes des JPC susmentionnés, le plus gros 
des calculs serait écrit en assembleur. Il y eut 
plusieurs versions de mon programme, dont je vous 
présente la dernière, adaptée à la HP48. 


Le fichier source étant compilé avec mon compilateur 
HP-48, je vous donne le fichier listing produit par ce 
compilateur. La première colonne de chiffres est le 
code de l'instruction. Cette forme de mise en page a 
le net avantage de permettre aux utilisateurs d’autres 
calculateurs HP (je pense aux HP-28C et HP-28S 
notamment) d’adapter assez facilement le programme 
présenté à leur machine. 


Passons maintenant au programme proprement dit : il 
s’agit de FFACT. Il est constitué d’une partie en RPL 
conventionnel et d’une seconde partie en assembleur. 


La partie en RPL calcule directement n! si n<14, ou 
calcule le nombre de chiffres de n! selon la formule 
de Stirling : 


n! = 124/(2rn)xn!xe"1x(1+1/12n) 


C’est alors que la partie en assembleur intervient : 
elle récupère la valeur calculée par la partie en RPL 
afin de réserver la mémoire nécessaire, puis calcule n! 
selon un algorithme simple et naïf, mais efficace. 
Pour preuve, sur mon ancienne HP-28S, j’obtenais 
100! en une seconde en mode double vitesse, et, si ma 
mémoire est bonne, 1000! en trois minutes. Avec la 
HP-48, j'obtiens 1000! en 203 secondes. 


FFACT a besoin d’un entier réel au niveau 1 et renvoie 
un chaîne de caractères au niveau 1. 


Exemple d'utilisation : 
20 FFACT -->  #2432902008176640000" 
Pour terminer, voici le listing : (les huit colonnes de 


gauche représentent les codes à taper sur votre 
machine) : 


; Partie en RPL conventionnel 


D9D20E16 « 
32 

78BF1 DUP 
33920100 14 
00000000 

00410 

CFCE1 < 
3CE22 IF 
AFE22D9D THEN 
20 

14BB1 FACT 
BOBC1 +STR 
B21305BF  ELSE 
22D9D20 

788F1 DUP 
ED2A2 2 
EEDA1 , 
DBAA1 \pi 
EEDA1 Æ 
éc981 LOG 
ED2A2 2 
50FA1 / 
92CF1 OVER 
788F1 DUP 
éc981 LOG 
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EEDA1 
76BA1 
92cF1 
32BA1 
6c981 
EEDA1 
90DA1 
92cF1 
33920100 
00000000 
00210 
EEDA1 
87281 
9C2A2 
76BA1 
éc981 
76BA1 
FOCB1 
B9691 
DBBF1 
B9691 


OVER 


LOG 


OVER 
12 


INV 
1 

+ 
LOG 
+ 
CEIL 
R-B 
SWAP 
R-+B 


BEGINCODE 


L 


. 


. 


.. .. .. =. 


=. 


Partie en assembleur 


Convention d'écriture : 


grptk] = (k+1)}ème groupe de 
5 chiffres 
RO.A = champ A du registre RO 


Utilisation des registres : 


A : registre de calcul 
B : idem 

C : idem 

D 


: N° du groupe de 5 chiffres courant 


DO : “grp[k] 
Di : 


RO : champ À : nombre total de groupes 
reste : nombre de chiffres de n! 
R1 ; champ À : adresse de n! 
reste : 
R2 sn, nl, n2, eo Le 0 
R3 : retenue temporaire 
Ré : 


On commence par initialiser Les 
divers registres et réserver 


la mémoire nécessaire 


include addr-48.as 
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CCD20 
BD100 
8FB9760 
8FE3160 
8F2D760 
143 

130 

169 
AF0O 

142 

102 

174 

143 

130 

169 

142 

Dé 

BF2 

BF2 

BF2 

BF2 

BF2 

108 

AF2 
3450000 
c2 

cé 
8F8DA60 
531 
8F2D760 
142 

164 
808C 
132 

101 
8F2D760 
111 

141 

131 
34C2A20 
145 

174 
3450000 
DA 

118 

BF6 

BF6 

BF6 

BF6 

BF6 

cé 

c2 

145 

E2 

174 
8FC5760 
119 

135 


ok 


nibhex begin_code 
rel(5) fin_code 
gosbvl save _reg 
gosbvl garb_collect 
gosbvl load_reg 
a=dati a 
d0=a 
d0=d0+10 
=0 W 
a=dat0 a 
rè=a ; R=n 
di=d1+5 
a=dati a 
d0=a 
d0=d0+10 
a=dat0 a : A = # de chiffres 
c=a a ; de n! 
csl w 
csl w 
csl w 
csl w 
csl w 
r0=c 
c=0 W 
lchex  #00005 
c=c+a a 
c=c+c a 
gosbvl malloc 
gonc ok : si assez de mémoire 
gosbvl load_ reg 
a=dat0 à 
d0=d0+5 
pc=(a) 
ad0ex ; A = nl! 
ri=a 
gosbvl Load reg 
a=r1 
dati=a à 
di=a 
Lchex  prolog_string 
dati=c a 
di=d1+5 
Lchex  #00005 
a=c a 
c=r0 
csr w 
csr w 
csr w 
csr W 
csr W 
c=c+c à 
z=cta à 
dati=c a 
c=c-a a 
di=d1+5 
gosbvl write_zeroes 
c=r1 
di=c 


179 di=d1+10 8AE ?cI=0 a ; R2#07? 
301 lchex #1 79 goyes Loop ; oui 
1520 dati=c 1 ; grpl0] := 1 


; Maintenant, il faut transformer notre 
calcule n! comme suit : ; nombre en une chaîne de caractères. 
ï 
: 


8 


On commence par recopier Le nombre 


3 0. RO.A := 0; grpl0] := 1; à La fin de l’espace mémoire réservé. 
; 1. retenue := 0; 
: 2. pour k := 0, k <= RO.A faire 118 c=r0 
: c := grp[kl * n BFé csr 4 
: C := c + retenue BF6 csr “ 
x grplk] := c mod 100000 BF6 csr W 
: retenue := c div 100000 BF6 csr W 
= fin_pour BF6 csr w 
3; 3. si retenue # 0 alors D5 b=c a 
: RO.A := RO.A + 1; D7 d=c a 
. grp[RO.A] := retenue 111 a=r1 
: fin_si 130 d0=a 
sé.n:sn-1; 169 d0=d0+10 
: 5. sin # 0 alors aller à 1. CA a=a+c à 
; sinon stop 131 di=a 
; fin si 179 di=d1+10 
8FCc0760 gosbvl copy_nibs 
AF2 Loop c=0 w ; boucle principale 
10B r3=c ; ajuste La retenue ; Puis on transforme chaque chiffre 
119 c=r1 ; en code hexadécimal correspondant 
134 d0=c 
169 d0=d0+10 ; DO = “grptk=0] 111 a=r1 
118 c=r0 ; Nombre total de 130 d0=a 
D7 d=c a ; groupes utilisés 169 d0=d0+10 
AF0 l1 a=0 w C0 : a=atb a 
142 a=dat0 a 131 di=a 
11A c=r2 179 di=d1+10 
05 setdec ; petite astuce ... CF d=d-1 a 
8FB9BD0 gosbvl multiply 3103 13 lchex #30 
113 a=r3 15F0 c=dat1 1 
A72 c=c+ta W ; ajoute La retenue 14C dat0=c b 
04 sethex ; retour en hexa 161 d0=d0+2 
144 datO=c a ; grp{k] = C.A 170 d1=d1+1 
BFé csr W CF d=d-1 a 
BF6 csr W 5SCE gonc 13 
BF6é csr w 181 d0=d0-2 
BFé csr “ AF3 d=0 W 
BF6 csr W D9 c=b a 
108 r3=c ; nouvelle retenue D7 d=c a 
164 d0=d0+5 3: K := k+1 81F dsrb 
CF d=d-1 a ; encore un groupe ? CF d=d-1 a 
5BC gonc (1 ; oui 111 a=r1 
113 a=r3 ; dernière retenue 131 di=a 
8A8 ?a=0 a ; retenue nulle ? 179 di=d1+10 
DO goyes  L2 ; oui ==> 12 148 l4 a=dati b 
140 datO=a a ; grplk] := retenue 14E c=dat0 b 
110 a=r0 ; on incrémente Le 148 dat0=a b 
E4 a=a+1 a ; nombre total de 14D dati=c b 
100 r0=a ; groupes utilisés 171 di=d1+2 
11A L2 c=r2 181 d0=d0-2 
CE c=c-1 a CF d=d-1 à 
10A r2=c ; on décrémente R2 SBE gonc 4 
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8F2D760 gosbvl Load reg 
142 a=dat0 a 
164 d0=d0+5 
808c pc=(a) 
fin_code ENDCODE 


; Retour en mode RPL conventionnel 


D8BF1 SWAP 
8DBF1 DROP 
B21305DF END 
22 

93632B21 » 
30 


Vous devriez obtenir une chaîne de 757 caractères. 
Une fois assemblé, la fonction 8YTES du menu MEMORY 
doit vous retourner la valeur # 5139h au niveau 2 de la 
pile. Il y a certainement des améliorations à apporter 
au programme … à vous de jouer ! 


Vous trouverez les chaînes de codes à assembler dans 
le coin de codes, à la fin du journal. 


Laurent Grand (516) 
Remarque : 


Si vous avez l’occasion de désassembler une partie de 
le ROM de votre machine, essayez les diverses 
adresses utilisées par le programme (je pense en 
particulier à multiply (#0DB9Bh) ou à write_zeroes 
(#0675Ch)). C’est très instructif. 





ASSEMBLEUR 
les outils du début - Acte III 


Pour terminer cette rubrique voici les programmes 
complémentaires de PEEK : POKE et ADDR. 


Les fichiers sources sont présentés de manière à être 
compilables avec le compilateur HP (voir Les débuts 
en rpl, paru dans le numéro précédent). 


POKE 


syntaxe : 
niveau 2 : 1entier binaire l'adresse où poker 
en Ram ou Iram 


niveau 1 : la chaîne de codes à poker 


JPC 81 Page 12 


Exemple : 
si l'adresse en Ram de la chaîne "AA" est # 78A10h 
# 78A10 10 + "24241 POKE 


En rappelant la chaîne sur la pile on lira : "88" (le 
code en mémoire d’un "8" étant 24). 


Listing du programme POKE : 
RPL le compilateur passe 
en mode rpl 

début programme 
vérifie s'il ya 2 
objets de type à 

à préciser 

pour générer le 
system binary <B3h> 
niveau 2 type 11 : 
entier binaire 
niveau 1 type 3 
chaîne 

marqueur bloc de pro- 
gramme à exécuter si 
arguments acceptés 
niveau 2: 


CK2&Dispatch 


#B3 


SWAP chaîne 
niveau 1: entier bin. 
HXS># conversion en system 
binary 

indique au compila- 
teur le mode assem- 
bleur 

a(a) := adresse où 
poker et drope le 
niveau 1 

sauve Les pointeurs 
pointe l'adresse du 
poke 

a(a) =: adr. chaîne 


CODE 


gosbvl =POP# 


gosbvl =SAVPTR 


d0=a 


a=dat1 a 
di=a 
di=di+ 5 
a=0 m 
a 
a 


pointe cette adresse 
pointe (longueur+5) 
pour asrb après 

(ata) =: longueur+5) 
a=a-5 a longueur de 
la chaîne en quartets 
longueur du code à 
poker 

compteur de digits 
début des codes à 
poker 

pour la conversion 
saut pour le départ 
conversion 

ASCII -> HEXA 

lit 1 caractère 

digit < 10 ? 


a=dat1 
a=a-con 


asrb 


di=di+ 


ut 


lchex 39 
gonc decr 
Loop 


a=dati 2 
?a<=c b 


NO OÙ 6 6 6 6 2% 6 6 6 OÙ 6 6 2% 6 OÙ 2 6 6 0 6% 6 6 6666 OO O6 OÙ OÙ OÙ #4  #  #  * 


goyes  inf10 
a=a-con b,7 

inf10 datO=a 1 
di=di+ 2 
d0=d0+ 1 

decr b=b-1 a 
gonc Loop 
govling =GETPTRLOOP 

ENDCODE 

DROP 

; 
ADDR 
syntaxe : 


A SO RS A | 


alors on Le garde 
a=a-7 b pour d > 9 
poke 1 digit 
actualise Les 
pointeurs 

actualise Le compteur 
si encore 1 digit 
restaure Les 

poineurs et retour au 
rpl 

fin du mode 
assembleur 

élimine l'adresse 
marqueur de fin 
correspondant à :: 
après vérification 
des arguments 
marqueur de fin de 
programme 


niveau 1 : l’objet rappelé sur la pile 


résultat : 


niveau 1 : l’adresse de l’objet - 1 entier binaire 


Listing du programme ADDR : 


RPL 


ck1 


ZERO 
TOTEMPSWAP 


CODE 
a=dat1 
d=d+1 
di=d1+ 
c=dat1 
cdiex 


D U1 © 


di=d1+ 
dat1=a 


di=c 
govlng #05149 


ENDCODE 


#>HXS 


Où NO 6 NW NE 6 CE C4 Æ M M N° © NO Æ  & # 


* 


vérifie s'il y a 1 
niveau de pile 

system binary <0> 
crée cet objet en Ram 
puis SWAP 

niveau 2 : <0> 

niveau 1 : l’objet 
mode assembleur 
adresse de l’objet 
drope celui-ci 


adresse de <0> 

pointe <0> 

c(a) =:adresse de <0> 

passe Le prologue 
remplace <0> par 
l'adresse de l’objet 
restaure di 

actualise pc et 
retour au rpl 

fin boc assembly code 


conversion syst. bin. 
-> entier binaire 


* fin programme 


Vous trouverez les chaînes de codes à assembler dans 
le coin de codes, à la fin du journal. 


Le but de cette rubrique était donc de fournir des 
outils pour les curieux et de donner des exemples 
d'utilisation de la rp/, ce que n’ont pas fait P.Courbis 
et S.Lalande. On remarquera que je n’ai pas proposé 
de programme cKk pour vérifier le nombre et la 
nature des objets. En effets toute une famille de 
routines existe dans la Rom de nos machines pour 
faire cela beaucoup mieux que CHk. Au travers des 
différents programmes que je vous ai proposés, une 
utilisation de quelques unes de ces routines a toujours 
été faite. 


Lorsque le nombre de programmes augmentera, nous 
pourrons envisager de constituer une librairie qui 
permettra d'exécuter chaque programme stocké en 
Rom ce que ne permet pas un répertoire normal. 


J'espère qu’il va se constituer un bon noyau de 
programmeurs dans le domaine de l’assembleur 
comme comme au bon temps de la HP-71. Malgré 
tout ce qui existe déjà dans le monde il y a encore des 
beaux jours pour les découvertes de toutes sortes. 


Guy Toublanc (276) 


CHOC EN RETOUR 


Le programme Ebiv en assembleur et publié dans 
JPC 79 page 10, peut poser quelques problèmes si on 
taquine la pile avec cMD aussi je vous propose une 
version corrigée et améliorée. En effet il m’a semblé 
qu’il serait plus pratique d’avoir pour les entrées et les 
sorties les mêmes types de données : 


- Si l'argument est un réel (entier positif ou négatif) le 
résultat sera un réel 


- Si l'argument est un entier binaire le résultat sera un 
entier binaire alors que pour la version précédente le 
résultat était toujours un réel. 

D'autre part j'ai ajouté, pour préserver l'avenir, la 
possibilité de préciser la limite des tests de divisibilité. 


EDIV 


syntaxe : 
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niveau 1: 1 réel ou 1 entier binaire ou 1 liste 


n | #n | CN) 
smmmmssmssmmmmsssme [ses fesses... 
résultat: 1 réel | 1 entier binaire | nombre de 

positif | | même type 

r | #r | que N 


n : entier de valeur absolue < 10/2 
#n : entier binaire < 264 


N :n (résultat-r) 
#n (résultat + #r) 

1 : limite des tests de divibilité 
1 réel entier ou 1 entier binaire 
si aucun facteur premier <= à 
alors résultat + 0 


résultat : r ou #r 
si argument premier - Ü 


sinon - plus petit facteur premier 


Extrait du fichier source 


Le partie Rpl du programme a seulement été 
modifiée aussi ce qui ne change pas ne sera pas listé. 
La présentation sera celle justifiée dans l’article Les 


débuts en Rpl, paru le mois dernier. 


RPL les modifications 

É _ _. . “rrrsssessesese ] 

CK&DISPATCH1 

ELEVEN 

DUP #>% XSQRT %># SWAP 
CODE 
GOTO start 

ENDCODE 


DUPLENCOMP #2= ?SKIP SETTYPEERR 
INCOMPDROP 


DUPTYPEREAL? case :: XABS %># SWAP ; 
DUPTYPEHSTR? case :: HXS>% %># SWAP ; 
SETTYPEERR 


. 


DUPTYPEREAL? case :: XABS %># 


CODE 
GOTO start 
ENDCODE 
#%X ; 
DUPTYPEHSTR? case :: 
CODE 


Li Mi Mi ui bé LS Lei us Gus Old el Ont OL Os Out Oui Os Os Let Out es Gel Les et Led 


GOTO start 
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ENDCODE : ] 
SETTYPEERR ] 

: ] 

ï ] 
real ] 
:: 1 
XABS DUP XSQORT %># SWAP %># ------------ ] 
CODE ARR RO ARR 


start GOSBVL =PopASavptr | 


#4 | 


ssésees [us | 
sieséaus | P | 

sonores | cl] 
sdsséss | | 
sépbéss 1791 

C=DAT1 16 | | 

RTN | p10 | 
ENDCODE | | 
| 

* 


. HR Re 
L 


Vous trouverez la liste des codes dans le coin des 
codes, à la fin du journal. 


Les programmes d’applications de EDIV ne sont pas 
modifiés sauf GDEC qui nécessite un argument de type 
binaire (le programme R?8 n’est plus utile) et qui 
renvoie une liste d’entiers binaires. Voici ce 
programme modifié. 


GDEC 


« € } SWAP 
WHILE DUP EDIV 
# Od OVER # OVER 
# 1d # AND 
REPEAT 
DO ROT OVER 1 
+LIST + SWAP ROT 
OVER / SWAP 
UNTIL OVER B-R 
OVER B-+R MOD 
END DROP 
END DROP DUP # 1d 
4 
« 1 +LIST + » 
« DROP » 
IFTE 


» 


Pour aujourd’hui il s'agissait seulement de donner 
une version déboguée et améliorée de EDIV, vous 
réservant des explications plus détaillée pour la partie 
Rpl qui me servira d’exemple pour la suite des Débuts 


en Rpl. 


Guy Toublanc (276) 


HP-95 


J. Belin Du Saturn au 8086 (Acte II) 16 
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DU SATURN AU 8086 
ACTEII 


Cet article constitue la deuxième partie d’une 
introduction à l’assembleur 8086 sur IBM PC, destiné 
aux programmeurs du microprocesseur Saturn sur 
HP-71, désirant migrer sur le HP-95. Je vous rappelle 
que ces articles sont conçus comme étant une 
introduction à l’assembleur sur lIBM PC, et ne se 
veulent pas une référence à ce domaine. Certains 
aspects ont été intentionnellement omis, et je vous 
conseille expressément de vous référer à un des 
nombreux livres afin d’obtenir des précisions 
supplémentaires sur l’assembleur, le fonctionnement 
de lIBM PC et les fonctions internes (voir 
bibliographie en fin d’article). 


Après avoir abordé, dans le numéro 79, les jeux 
d'instructions des deux microprocesseurs, nous allons 
maintenant voir la structure et la façon d'écrire les 
programmes MS-DOS. 


Structures des programmes HP-71 et MS-DOS 


Il existe deux types de programmes binaires sur le 
HP-71 : les programmes BIN et LEX. Le premier type 
ne peut être appelé que sous forme de 
sous-programme, à l’aide de l’instruction CALL. Les 
programmes LEX possèdent la particularité de gérer 
ces sous programmes de façon plus complète, comme 
si ils étaient des mots clefs, au même niveau que les 
fonctions de la Rom. Ceci est effectué grace à la 
présence, au début de chaque Lex, d’une table 
contenant des données attribuées à chaque mot clef, 
grace au couple ID/Token. Ils possèdent en plus 
d’autres possibilités, comme la gestion des "Poll 
Handlers" et l’ajout de tables de messages. 


Sur lIBM PC, ïil existe aussi deux sortes de 
programmes, portant l’extension COM ou EXE. 
Cependant, les différences entre ces deux types de 
programmes sont plus subtiles mais moins 
importantes que pour les programmes HP-71. En 
effet, un programme portant l'extension EXE 
possèdent quelques différences internes, que nous 
verrons plus tard, mais ne possèdent aucune 
différence quant à leur utilisation. 


Lorsque nous lançons un programme sur un IBM PC, 
MS-DOS charge le programme en mémoire vive (à 
partir du disque) en allouant la place nécessaire, 
lance l’exécution (le programme lui-même peut alors 
utiliser le reste de la mémoire vive pour ses données), 
puis libère la mémoire à la fin de l’exécution afin de 
garder la place libre pour un autre programme. En 
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dehors du système d’exploitation et des éventuels 
drivers de périphériques, il n’y a donc en théorie 
qu’un seul programme présent en mémoire. Il est 
cependant possible de conserver certains programmes 
spéciaux en mémoire, en les rendant résidents. Dans 
ce cas, le système d’expoitation ne libère pas la 
mémoire utilisée par le programme et place le 
programme suivant à la suite de la mémoire occupée 
par le résident. Nous reviendrons plus tard sur ce type 
de programme. 


Le système d’exploitation du HP-71 procède d’une 
action un peu plus complexe. En effet, sur cette 
machine, les mémoires de masse (servant au stockage 
des programmes et des données) et de travail (servant 
au stockage des programmes en cours d’exécution et 
des données) cohabitent de façon plus étroite. En 
effet, les programmes n’ayant pas à être chargés à 
partir d’un périphérique externe sont en permanence 
accessibles par le système d’exploitation, qui peut les 
exécuter sans avoir à les déplacer dans une zone de 
mémoire réservée à cet effet. La mémoire libre est 
donc alors utilisée uniquement par les données créées 
par le programmes en cours d’exécution. 


En fait, structurellement parlant, les programmes BIN, 
la plupart des mots clefs des LEX et les programmes 
MS-DOS pouraient être considérés comme étant 
équivalents, puisque dans tous les cas, on ne fait 
qu’appeler une fonction, avec les paramètres 
nécessaires. Le fait que le programme soit exécuté 
directement ou non à partir de la mémoire de masse 
est uniquement le problème du système d’expoitation, 
et n’entre pas en jeu dans la façon dont doivent être 
écrits les programmes BIN et MS-DOS, qui ont une 
structure relativement équivalente. 


Par contre, la structure des fichiers LEX est beaucoup 
plus complexe, puis qu’elle inclut des mécanismes qui 
sont inconnus par MS-DOS. Le premier est bien sûr 
le fait que le système d’exploitation du HP-71 peut 
accéder directement, à partir d’un fichier LEX à un ou 
plusieurs mots clefs distincts contenus dans celui-ci, 
alors qu’il n’existe qu’un seul mot clef correspondant 
au nom du fichier dans le cas des programmes 
MS-DOS. Une autre chose, prise en compte sur le 
LEX seul, est la possibilité de gérer des tables de 
messages. 


Plus intéressante est la comparaison entre la notion 
de Poll Handler et celle de programme résident de 
MS-DOS. En fait, un Poll Handler peut être assimilé, 
dans une certaine mesure, à un gestionnaire 
d'interruption tel que ceux qui sont utilisés pour 
l'activation des programmes résidents. La grande 
différence entre les deux machines est que ce 
mécanisme est inclus d’origine dans la strucure du 
fichier LEX, alors que sa mise en oeuvre sous 


MS-DOS est totalement à la charge du programmeur 
(pour plus de détails, voir mon article sur TJR8 dans 
JPC 78). De plus, un poll handler est un mécanisme 
purement logiciel, résultant d’un appel décidé par un 
programme ou le système d’exploitation, alors qu’une 
interruption peut être activée à nimporte quel 
moment par un evénement interne ou externe à 
l'ordinateur. Mais ceci dit, rien ne nous empêche de 
créer pour nos programme résidents un système 
permettant d’émuler, par exemple, la fonction VERS du 
HP-71. Celui-ci serait composé d’un gestionaire 
d'interruption implanté de telle façon que le contrôle 
de l'exécution serait chaîné vers tous les résidents 
concernés. Ce gestionnaire afficherait une chaine de 
caractère vers l'affichage, puis transfererait le 
contrôle vers le résident suivant. L’activation de ce 
mécanisme serait effectué par un simple programme 
COM (de moins de dix octets) qui ne ferait qu’activer 
une interruption que nous aurions choisie parmi 
celles qui ne sont pas utilisées par les programmes ou 
le système d’exploitation. 


Une autre différence fondementale entre les 
programmes MS-DOS et les programmes binaires 
HP-71 concerne la mise en oeuvre des variables 
utilisées pour le fonctionnement du programme. Sur 
le HP-71, nous avons l'habitude de stocker ces 
variables dans certaines parties de la mémoire 
réservée, aux adresses STMTRO ou SNAPBF par exemple. 
Avec MS-DOS, par contre, de telles zones n’existent 
pas. Afin de simplifier la conception des programmes, 
il est donc usuel de placer les variables dans le 
programme lui même, avant la zone réservée au code. 
Quasiment tous les programmes MS-DOS utilisent 
cette méthode. Il existe cependant quelques 
problèmes avec cette approche. La première est que 
si le programme utilise de nombreuses variables ou 
des tableaux de grandes taille, le programme EXE ou 
coM résultant sera d’autant plus gros. Ce problème 
peut être cependant éliminé en demandant une zone 
de mémoire libre au système d’exploitation, au 
détriment d’un peu de code supplémentaire. Le 
second problème, qui peut apparaitre dans certains 
cas (dont le HP95 fait partie, avec les fonctions 
MS-DOS intégrées en Mémoire morte) est que cette 
méthode interdit lexécution du programme 
directement à partir de la ROM. II faut donc réécrire 
ces programmes de telle façon que les données soient 
situées en mémoire vive, en utilisant la méthode 
décrite précédement pour les programmes utilisant 
beaucoup de données. 


A propos, ceci nous amène enfin à deux autres types 
de programmes spécifiques au HP95. Les 
programmes portants l'extension EXM sont destinés à 
être exécutés sous le System Manager. Ils ont à peu 
près la même structure que les programmes EXE, à 
ceci près que les zones de code et de données sont 


totalement séparées. Ceci permet, en cas de 
changement d’application (pour lancer Lotus ou le 
Memo par exemple) de conserver les données en 
mémoire, alors que la zone utilisée par le code est 
réutilisée immédiatement par le code du nouveau 
programme. Un autre type de programme, prévu 
mais non utilisé actuellement sur le HP95, porte 
l'extension XIP (eXecute In Place). Il est destiné à 
l'exécution des programmes directement à partir des 
cartes mémoire (Rom ou Ram), sans transfert du 
code dans la mémoire vive. 


Maintenant que nous avons abordé la structure 
générale des programmes, nous pouvons maintenant 
aborder plus en détail leur programmation. Pour cela, 
nous allons utiliser le thème bien connu du 
programme affichant Hello, World sur l'écran de 
notre ordinateur, en comparant les sources pour les 
deux machines. 


Programme HP-71 


Pour cette machine, nous créerons un fichier BIN 
plutôt qu’un LEX, car ce type de fichier correspond 
plus à la structure d’un fichier MS-DOS. Nous ferons 
cependant de nombreuses références aux fichiers 
LEX, quand cela sera utile. 


BIN lHELLO” 

CHAIN -1 
BF2DSP EQU #01C0E 
ENDBIN EQU #0764B 


GOSUB POP 

NIBASC ‘Hello,’ 

NIBASC ’ World’ 

NIBHEX DOAOFF 
POP C=RSTK 

D1=C 

GOSBVL BF2DSP 

GOVLNG ENDBIN 

END 


affichage chaine 
fin programme 


Programme MS-DOS 


DOSSEG 

.MODEL SMALL 

.STACK 100h 

.DATA 
Chaine DB 

.CODE 
start: mov bx,adata 

mov ds,bx 

mov dx,OFFSET Chaine 

mov ah,09h 

int 21h 

mov ah,4ch 


“Hello, World",13,10,"$" 
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int 21h 
END start 


En-Têtes des programmes 


La première ligne des fichiers HP-71, contenant le 
type d’exécutable (LEX, BIN ou FORTH) suivi du nom 
du fichier résultat n’a pas d’équivalent sous MS-DOS 
car le nom de ce fichier correspondra soit au nom du 
fichier source, soit à une option de la ligne de 
commande. 


Toujours dans le fichier HP-71, la directive CHAIN est 
utilisée dans le cas où le fichier BIN contient plusieurs 
sous programmes, appelables séparément par 
l'instruction CALL. Comme mentionné préxédement 
pour les fichiers LEX, chaque fichier MS-DOS n’est 
appelable que par son nom de fichier. Il n’y a donc 
pas d’équivalent à CHAIN dans les programmes 
MS-DOS. 


La directive EQU existe aussi sur l’assembleur 
Microsoft et peut être utilisée de façon identique. 
Nous ne l’utilisons pas cependant pour définir des 
adresses de la ROM, car nous utilisons une autre 
méthode pour accéder aux resources du système. Ceci 
sera précisé plus loin dans cet article. 


La première ligne du fichier MS-DOS contient la 
directive DOSSEG. Celle-ci permet d'indiquer à 
l’'assembleur d’ordonner le programme en suivant les 
conventions définies par Microsoft, à savoir placer 
d’abord le code, puis les variables dans le fichier 
executable, à l’inverse de ce qui est écrit dans le 
fichier source. 


La directive .MODEL (ne pas oublier le point) permet 
de définir la façon dont seront traités la segmentation 
des programmes, les appels de fonctions et les 
réferences aux variables. Six modèles de gestion de la 
mémoire sont définis : 


TINY Code + Données = 64 Ko Maximum 
SMALL Code < 64 Ko, Données < 64 Ko 
coMPACT Code < 64 ko, Données > 64 ko 
MEDIUM Code > 64 ko, Données < 64 ko 
LARGE 
HUGE Code > 64 ko, Données > 64 ko (blocs >64k) 


Si nous prenons pour exemple le modèle COMPACT, cela 
veut dire que la taille du code sera d’un maximum de 
64 Ko. Les appels de fonctions et les sauts seront 
donc calculés sur 16 bits par des appels NEAR, en 
utilisant seulement la valeur de l’offset du segment de 
code utilisé (en fait, seul le registre IP sera mis à 
jour). Les données, par contre, pourront avoir une 
taille totale supérieure à 64 ko. Chaque bloc de 
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Code > 64 ko, Données > 64 ko (blocs < =64k) 


donnée (un tableau par exemple) ne peut cependant 
pas avoir une taille supérieure à 64 ko. 


Dans le modèle TINY, le code et les données partagent 
le même segment. Le programme complet ne peut 
donc pas excéder 64 ko. 


Le modèle HUGE peut par contre utiliser des tableaux 
de données d’une taille supérieure à 64 ko, puisque 
toutes les données sont accessibles sur 32 bits. 


En général, pour nos petits programmes, nous 
utiliserons de préférence les modèles SMALL et TINY. 


D’autres options de .MODEL permettent de contrôler la 
façon dont sera assemblé le fichier, dans le cas où 
celui-ci sera interfacé avec un langage de haut niveau, 
par exemple. 


La directive .STACK permet de définir une un segment 
de mémoire devant contenir la pile de données du 
programme. Cette pile sera utilisée, par exemple, 
pour sauvegarder le contenu courant des registres 
pendant les appels aux interruptions que nous verrons 
plus bas. Le paramètre correspond à la taille de la 
pile, en octets. Cette zone ne fait pas partie intégrante 
du programme et sa taille n’a pas d’influence sur celle 
du programme. Cependant, ne spécifiez pas une 
valeur trop grande, car cela sera au détriment de la 
mémoire vive disponible. Au contraire, une pile trop 
petite provoquera un écrasement des données 
avoisinantes ou du code. 


La directive .DATA permet de définir un segment de 
mémoire devant contenir les variables utilisées par le 
programme. La déclaration de chaque variable est 
composée d’une étiquette indiquant son nom, du type 
de la variable définissant sa longueur et 
éventuellement de données initialisées. 


Dans notre exemple, nous déclarons une variable 
contenant une chaine de caractères, que nous 
initialisons avec la chaine que nous désirons afficher. 


Il y a 7 types de données, permettant de réserver la 
place nécessaire au stockage des différents types de 
variables : 


DB 1 octet 

vw 2 octets : Mot (Word) 

oo 4 octets : Double mot 

oF,DP 6 octets : Pointeur 386 Long 
va 8 octets : Quadruple mot 

DT 10octets 


Les variables peuvent être initialisées avec une ou 
plusieurs valeurs de la façon suivante : 


Vari DB 2Fh 

Alloue un octet initialisé à 2F. 
Var2 DB 2Fh,67,(16*7+2) 

Alloue un tableau de 3 octets initialisés 
Var3 DB “ABC,13,10 


Alloue une chaine de caractères terminée par CR/LF. 


Var  DW 3B4Fh, 2Ch 
Alloue un tableau de deux mots. 


Il est possible de déclarer une variable sans cependant 
l'initialiser. Pour cela, il faut remplacer les données 
d’initialisation de la façon suivante : 


Vars DW (2?) 
Alloue un mot, sans l’initialiser. 


Il est enfin possible d’allouer un tableau, en 
initialisant chaque élément avec une valeur 
déterminée, grace à la directive DUP : 


Varé DB 25 DUP (’2Z!) 
Alloue un tableau de 25 octets, avec tous 
les octets initialisés avec le caractère ’2’. 


Il est bien sûr aussi possible d’allouer un tableau, sans 
vouloir l’initialiser : 


Var7 DW 100h DUP (2?) 
Alloue un tableau de 256 mots, non initialisés 


Une fois que les variables sont déclarées, il est 
possible d’y accéder directement en donnant leur nom 
comme paramètre d’une instruction : 


vari DW (2) 


mov [var1]1,ax 
Ceci placera le contenu du registre AX dans la 
variable var1. 


Il est aussi possible de spécifier les variables de telle 
façon que l’on puisse accéder aux différents éléments 
les constituant : 


Var7 LABEL WORD 
Var7_l DB (2) 
Var7 _h DB (2) 


La directive LABEL WORD n’alloue pas par elle-même de 
mémoire, mais indique que les données déclarées 
ensuite peuvent être accédées ensemble en utilisant le 
nom Var?7, qui pointe sur un mot. Par exemple : 


mov [Var7_h],02h 


mov [Var7_l],08h 


mov bx, [Var_7] 
Placera 0208h dans le registre BX. 


Corps du programme 


Dans le programme EXE, nous devons indiquer à 
l’assembleur le début du segment de code. Cela est 
fait en plaçant la directive .C00E juste avant la 
première instruction. 


La première instruction du code doit être précédée 
d’un label, dont le nom peut être choisi librement par 
le programmeur. Vous pouvez constater 
(contrairement à ce qui se fait sur lassembleur 
Saturn) que ce nom est suivi d’un caractère ":". Cela 
est obligatoire pour tous les labels indiquant une 
adresse de branchement (pas ceux référencant une 


variable ou un segment). 


La grande différence dans le fonctionnement des deux 
programmes concerne la façon dont on accède à la 
chaine de caractères. Sur le HP-71, la fonction 8F2DsP 
nécessitant la connaissance de l’adresse absolue de 
cette chaine. Or, le code assemblé ne peut pas donner 
directement cette adresse, car le programme n’est pas 
logé à une adresse fixe. On a recours alors a une 
astuce consistant à placer la chaîne juste après un 
Gosu8, et à dépiler ensuite l’adresse de retour pour 
obtenir l’adresse de la chaine. 


Sur le PC, par contre, les programmes EXE ont la 
perticularité de posséder, dans leur en-tête, une table 
dite "de relocation" contenant l’emplacement de 
chaque instruction utilisant une valeur de segment. 
Au tout début de l'exécution du programme, le 
système d’exploitation connait l'emplacement réel du 
programme dans la mémoire. Il pourra donc lire cette 
table et stocker les valeurs réelles de segment dans le 
programme, dans chaque instruction le nécessitant. 
En cours d'exécution le programme traitera ces 
valeurs comme si elles avaient été entrées sous forme 
de constantes. 


Dans notre programme EXE, nous devons utiliser 
cette possibilité, car nous utilisons un appel de 
fonction nécessitant de connaitre la valeur de segment 
de notre chaine de caractères. Cette valeur doit être 
stockée manuellement dans le registre DS, car le 
système d’exploitation ne se charge pas de la 
manoeuvre. Pour cela, nous devrons donc entrer les 
lignes suivantes : 
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mov bx,adata 
mov ds ,bx 


Le terme âdata permet de faire savoir à l’assembleur 
que le paramètre devra être pris en compte dans la 
table de relocation, afin que le programme exécute 
l'instruction avec la valeur du segment de données. 


En plus de la valeur de segment, notre instruction 
d’affichage de chaîne nécessite aussi l'adresse de la 
chaine par rapport au début du segment. Dans ce cas, 
il n’y a pas de problème car cette valeur est 
indépendante de la position du programme dans la 
mémoire. Il suffira donc d’écrire la ligne : 


mov dx, OFFSET Chaine 


Maintenant que nous avons décrit la façon d’accéder 
aux données, nous devons maintenant les exploiter. 
Les méthodes d’accès aux resources systèmes des 
deux machines sont en même temps très proches et 
trés différentes. En effet, si dans les deux cas nous 
devons charger des valeurs dans certains registres, 
puis éventuellement lire le résultat dans d’autres 
registres, le mécanisme d’appel à ces fonctions est 
totalement différent. Sur le HP-71, nous effectuons 
simplement un appel vers un sous programme, 
présent à une adresse normalisée de la ROM. Or, les 
concepteurs de la ROM de l'IBM PC ont prévu le fait 
que les différentes versions du BIOS ne pourraient 
pas assurer que toutes les fonctions soient situées à la 
même adresse. Il ont donc choisi d'accéder à ces 
fonctions par l'intermédiaire d'appels à des 
interruptions, qui elles pouraient être normalisées. 
Sous MS-DOS, nous considérons qu’il existe deux 
types d’interruptions : Les interruptions BIOS et les 
interruptions DOS. En simplifiant, les premières 
traitent de tous les accès au matériel, qui sont 
indépendants du système d’exploitation, comme par 
exemple les accès de bas niveau sur les disquettes ou 
le disque dur. Les secondes traitent, par exemple, de 
tout ce qui concerne la création et la façon dont sont 
stockés les fichiers. En général, les fonctions traitant 
d’un même sujet sont regroupées au sein de la même 
interruption. Par exemple, l'interruption 10 gère tous 
les accès de bas niveau au contrôleur vidéo. La 
plupart des interruptions MS-DOS sont regroupées 
dans l'interruption portant le numéro 21h. Il n’existe 
malheureusement pas, sur l'IBM PC, certaines 
fonctions qui ont fait notre bonheur sur le HP-71, 
telles les fonctions mathématiques ou les 
manipulations de chaînes. En fait, il y a moins de 300 
fonctions DOS ou BIOS sur le PC, contre plus de 
1000 sur le HP-71. 


Au sein de chaque interruption, les différentes 


fonctions sont accessibles en plaçant un code 
normalisé dans le registre AH. En sortie, nous 
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pouvons, comme sur le HP-71, récupérer des valeurs 
dans certains registres, ou tester le Carry. 


Pour le programmeur, il n’y a pas de complication 
supplémentaire, puisque dans les deux cas il suffit de 
consulter sa documentation technique afin de trouver 
la fonction qui nous intéresse et les registres à 
prendre en compte. 


La méthode des interruptions permet en outre d’avoir 
la possibilité de modifier le comportement des 
fonctions de la ROM, en détournant les vecteurs 
d’interruptions vers des fonctions que nous avons 
réécrites. C’est ce qui permet, par exemple, de créer 
des utilitaires de cache disque comme SMARTDRV, qui 
traitent différement les fonctions d’accès au disque. 
Sur le HP-71, le fait que nous accèdions à une adresse 
fixée à l’avance nous interdit de créer ce type de 
programmes. Seules certaines fonctions, gérées par 
des polls handlers nous permettent de modifier leur 
comportement. 


En ce qui concerne notre programme, les deux 
fonctions  d’affichage de chaîne, ont un 
fonctionnement très équivalent. Sur le HP-71, nous 
utilisons la fonction 8F20sP qui demande l’addresse du 
premier caractère dans le registre D1. Sur le PC, nous 
utiliserons la fonction 09h du DOS (interruption 21h) 
qui demande aussi l’adresse de la chaîne, mais avec 
ses deux composandes (offset et segment) dans le 
couple de registre DS et DX. La seule différence 
concerne le fait que le caractère indiquant la fin de la 
chaîne est le signe "$" sous MS-DOS, alors que c’est 
le caractère de code 255 (FF en hexa) sur le HP-71. 


Vous pouvez constater qu’il n’y a pas de différences 
dans la démarche du programmeur, puisque dans les 
deux cas, il nous suffit de consulter une 
documentation technique afin de connaitre un nom 
ou un numéro de fonction, accompagné des registres 
utilisés par celle ci. 


Si l’on veut être rigoureux, ou en cas d’assemblage de 
fichiers sources multiples, nous devons déclarer les 
sous programmes à l’aide de directives spécifiques, 
permettant à l’assembleur de savoir si il doit génerer 
des appels longs ou courts. Cette déclaration peut 
être de la forme suivante, pour la fonction fct_1 : 


S ; programme 
call fct_1 


fct_1 LABEL PROC NEAR 


mov bx,1 


; sous programme 


ret 
fct1 ENDP 


fct_2 LABEL PROC FAR 


La directive LABEL PROC NEAR indique que le call devra 
être généré avec un appel court (sur 16 bits, dans le 
même segment). Si le NEAR est remplacé par FAR, ce 
sera un appel long (sur 32 bits, de la forme 
segment:offset) qui sera généré. 


La directive ENDP indique la fin du sous-programme. 


Vous pouvez aussi noter, dans ce source, la présence 
de commentaires. Le caractère ";" indique que les 
caractères suivants appartiennent à des 
commentaires. Contrairement à l’assembleur Saturn, 
ce caractère est toujours obligatoire, même après une 
ligne de code. 


Fin du programme 


En fin d’exécution du programme, sur les deux 
machines, notre programme doit retourner sous le 
contrôle du système d’exploitation en exécutant une 
fonction prédéfinie. 


Sur le HP-71, nous procédons à un GoVLNG vers des 
adresses prédefinies : ENDBIN, NXTSTM, FNRTN1... 


Sous MS-DOS, le retour est effectué en appelant la 
fonction 4Ch de l'interruption 21h. D’une façon 
identique à FNRTN1, Il est possible de renvoyer une 
valeur, pouvant être testée dans un fichier BAT par la 
commande ERRORLEVEL. Ceci est fait en placant le code 
de retour dans le registre AL, avant l'appel de 
l'interruption. 


Il existe une autre fonction permettant de retourner 
au DOS, portant le numéro 31h, qui permet au 
programme de rester résident. C’est celle ci qui m’a 
permis de créer les utilitaires TJR8 et TJPs parus dans 
des précédents JPC. 


La dernière instruction de notre source est proche de 
ce qui se fait sur le HP-71, puisque il s’agit d’une 
directive END. Nous devons cependant y ajouter, en 
paramètre, le label correpondant à la première 
instruction exécutée par le programme. 


Compilation du programme 


Le source de ce programme peut aussi bien être 
compilé avec l’assembleur Microsoft (MASM) qu'avec 
celui de Borland (ras). En effet, et en ce qui 
concerne ce que nous avons déjà vu, ils sont 
totalement compatibles entre eux. La seule différence 
concerne le nom des programmes. 


Le programme que nous avons écrit ayant été, par 
exemple, sauvegardé sous le nom HELLO.ASM (ASM 
étant lextention standard pour un fichier 
assembleur), nous désirons obtenir un programme 
exécutable portant le nom HELLO.EXE. Pour cela nous 
exécuterons, si nous utilisons l’assembleur Microsoft, 
les commandes suivantes : 


masm hello 
Avec le Turbo Assembler ce sera : 
tasm hello 


Ceci ne créera pas tout de suite le fichier EXE, mais 
un fichier “objet” intermédiaire portant l’extension 
OBJ. Pour transformer ce fichier en exécutable, nous 
devons ensuite utiliser la commande suivante : 


Link hello 
ou, pour l’assembleur Borland : 
tlink hello 


Nous obtenons ainsi le fichier HELLO.EXE, qui peut 
être exécuté comme n’importe quel programme. 


Cette procédure en deux étapes est peut être 
contraignante, mais cela est dû au fait que ces 
utilitaires ont été conçus pour avoir la possibilité de 
compiler des programmes ayant été écrits de façon 
modulaire, sur plusieurs fichiers sources 
indépendants. Il est ainsi possible de se créer des 
bibliothèques de fonctions, que nous stockerons dans 
des fichiers objets séparés, puis un programme 
utilisant ces fonctions, qui sera lui aussi stocké dans 
un fichier objet indépendant. Par exemple, si notre 
programme HELLO affichait son texte au milieu d’un 
cercle, il serait intéressant de créer un module 
indépendant gérant le graphisme, que nous 
appellerions peut-être GRAPH.ASM. Dans ce cas nous 
procèderions de la façon suivante : 


masm hello 


masm graph 
Link hello graph 
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La dernière opération, appelée Edition de Liens 
consiste à lier les appels des fonctions et les 
références aux variables entre les différents modules. 
Vous avez pu noter que je n’ai pas mentionné les 
différentes extensions OBJ ou EXE, car les utilitaires 
les utilisent par défaut. Dans le dernier exemple, le 
nom du fichier EXE résultant sera toujours celui 
correspondant au premier fichier objet mentionné sur 
la ligne de commande. 


Conversion du programme EXE en COM 


Le progamme que nous venons de compiler 
fonctionne parfaitement (enfin, je l'espère !). 
Cependant, sa taille (plus de 500 octets) est sans 
commune mesure à ce qu’il exécute réellement. Ceci 
est dû principalement à la présence de la table de 
relocation dont nous avons parlé précédement. 


Il existe cependant d’autres différences entre les deux 
types de programmes. La plus importante est qu’un 
fichier EXE n’a pas de limitation de taille (si ce n’est 
celle de la mémoire vive) alors qu’un programme 
COM est limité à une taille maximale de 64 Ko, 
données comprises. De plus, le programme COM ne 
possède pas de segment de pile séparé et doit utiliser 
la Zone de mémoire située entre la fin du programme 
et la limite de 64 ko (ce qui veut dire que si le 
programme approche de très près de 64ko, il risque 
de ne pas avoir suffisement de place dans la pile). En 
fait, le programme COM ne peut occuper et utiliser 
que le code et les données contenues dans un seul et 
même segment, alors qu'un programme EXE peut 
être composé d’un nombre indéterminé de segments 
stockant du code ou des données. Nous verrons cela 
un peu plus en détail plus loin dans cet article. En 
terme d'utilisation, il n’y a absolument aucune 
différence entre ces deux types de programmes. 


Pratiquement, nous devrons effectuer quelques 
modifications sur notre programme afin de le rendre 
convertible en COM. 


Mais, au point où nous en sommes, profitons en pour 
parler de l’autre manière d’écrire les programmes en 
assembleur. 


Il existe deux façons d’indiquer à l’assembleur la 
façon dont nous voulons qu'il traite la segmentation. 
Les termes qui sont utilisés sont Segnentation 
Standard et Segmentation Simplifiée. Celle que nous 
avons vu précédement est la segmentation simplifiée, 
qui est nommée ainsi car nous n’avons besoin que de 
quelques instructions (.MODEL, .DATA.) placées au 
début du programme pour indiquer à l’assembleur 
comment attribuer et traiter les segments. Si nous 
voulons un contrôle plus précis de notre travail, nous 
pouvons utiliser la segmentation standard. 
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Pratiquement, nous devrons déclarer explicitement 


tous les segments qui seront utilisés par le 
programme. Ceci est fait en remplaçant les 
directives .STACK, .DATA et .CODE par d’autres 


directives, de la façon suivante : 


DOSSEG 
SEGMENT PARA STACK ‘STACK’ 
DB 200h DUP (0) 
Stack ENDS 
Data SEGMENT PARA 'DATA' 
Chaine DB “Hello, World",13,10,"$" 
Data ENDS 
Code SEGMENT PARA CODE’ 
ASSUME cs:Code,ss:Stack,ds:Data 


Stack 


start: mov bx,Data 
Code ENDS 
END start 


La directive SEGMENT permet de définir le début d’un 
segment, de telle sorte que le label associé soit 
accessible à cette adresse avec un offset égal à 0. Le 
paramètre PARA indique permet de positionner ce 
segment au début du prochain paragraphe (groupe de 
16 octets) physiquement adressable en mémoire vive. 
D’autres valeurs permettent par exemple d’aligner le 
segment sur le prochain octet (BYTE), le prochain mot 
(woro) ou la prochaine page (groupe de 256 octets, 
PAGE). 


Les paramètres ’STACK’, ’DATA’ et CODE’ permetttent 
à l’editeur de liens de regrouper sous un même 
segment tous les modules de code ou de données 
ayant le même paramètre. 


Le paramètre STACK placé entre PARA et ’STACK’ permet 
à l’éditeur de liens de placer dans les registres SS:SP,, 
en début d’exécution du programme, les valeurs 
correspondant à la fin du segment. En effet, la pile se 
remplit à partir des adresses hautes vers les adresses 
basses de la mémoire. 


La directive ASSUME indique à l’assembleur quels 
registres sont associés à ces segments. Ceci lui 
permettra de savoir, par exemple, à partir de quel 
segment effectuer le traitement de l’opérande tdi] 
dans une instruction du type mov bx, di]. Ceci permet 
aussi de controler la validité de ce type de références. 
Notez bien cependant que cette directive ne se 
substitue pas à l’obligation de charger un registre avec 
la valeur du segment, par une instruction Mov. Les 
paramètres de ASSUME sont composés du nom du 
registre et du label du segment séparés du caractère 


Enfin, la directive ENDS indique la fin du segment 
spécifié par le label placé juste avant. 


Vous pouvez aussi remarquer que pour la première 
ligne de code, le terme @ata a été remplacé par Data, 
qui correspond au label. Ceci n’est pas une erreur, 
elle correspond à la notation en vigueur dans ce mode 
de segmentation. 


Maintenant que nous avons abordé le principe de la 
segmentation standard, revenons à notre programme, 
et étudions les modifications à apporter afin de le 
transformer en COM. 


Premièrement, nous avons dit que ce type de 
programme ne comportait pas de pile. Nous devons 
donc supprimer tout ce qui concerne le segment 
Stack, y compris dans la directive ASSUME. 


Ensuite, nous intégrons le segment de données à 
l'intérieur du segment de code. Habituellement nous 
gardons ces données au début du programme. Or, en 
début d’exécution, le pointeur du programme est 
positionné sur le premier octet du segment. Il faut 
donc impérativement y placer une instruction de saut, 
qui permettra de passer au dessus des données et 
continuer l’exécution du programme après celles-ci. 


Les programme COM ne possèdant pas de table de 
relocation, nous ne pouvons pas effectuer des 
chargements de registres à l’aide de références de 
segments. Nous devons donc remplacer, par exemple, 
les lignes : 


strt: mov bx,Data 
mov ds,bx 


par : 


strt: mov bx,cs 
mov ds,bx 


En effet, les données étant maintenant intégrées au 
segment de code, le plus simple pour connaitre 
celui-ci est de lire sa valeur directement dans le 
registre CS, qui est toujours valide. 


Enfin, après leur chargement en mémoire, l'exécution 
d’un programme COM commence à l’adresse 100h 
(par rapport au segment de code) alors que les 
programmes EXE commencent à l’adresse Oh. Il faut 
donc ajouter une directive indiquant à l’assembleur 
d’en tenir compte. Ceci est fait à l’aide de la directive 
ORG 100h. 


En définitive nous obtenons le programme suivant : 


DOSSEG 

code segment para ‘CODE’ 
assume cs:code 
ORG 100h 

start: jmp strt 


Chaine DB “Hello, World",13,10,"$" 
strt: mov bx,cs 

mov ds,bx 

mov dx,OFFSET Chaine 


mov ah,09h 

int 21h 

mov ah,4ch 

int 21h 
Code ends 

END start 


Une fois le source sauvegardé, sous le nom 
HELLOZ2.ASM par exemple, nous pouvons l’assembler 
de la même façon que le programme précédent : 


masm hello 
link hello 


Ne vous inquietez pas du message Warning : no Stack 
qui aparaitra, cela est tout à fait normal puisque nous 
n’en avons pas spécifié. Même sous cette forme, le 
programme fonctionnera sans problème. 


Nous pouvons maintenant transformer notre 
programme EXE en COM. Pour cela, nous utiliserons 
un utilitaire nommé EXE2BIN, qui est livré en standard 
avec MS-DOS (vous devriez le trouver dans votre 
directory \DOS). Il peut être exécuté de la façon 
suivante : 


EXE2BIN HELLO2.EXE HELLO2.COM 


Ceci créera le fichier HELLOZ2.COM. Vous pourrez 
donc effacer le fichier HELLO2.EXE qui ne sert plus à 
rien. Notez à ce sujet que quand il existe dans un 
répertoire trois programmes ayant le même nom, 
mais avec des extensions différentes BAT, EXE ou 
COM, ce sera le programme COM qui sera exécuté. 
Prenez donc soin de l’effacer à chaque fois si vous 
prenez l'habitude de tester le programme EXE avant 
de le convertir en COM. 


Nous obtenons en définitive un programme ayant une 
taille de 33 octets, contre 543 précédement. Il est à 
noter que le même programme écrit en C, puis 
converti en COM aurait fait plus de 5500 octets ! Ceci 
est dû au fait que ce type de programme est chargé, 
au cours de l'édition de liens, avec des bibliothèques 
de fonctions standard qui ne servent à rien ici. 
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Autres Notions... 


Cette partie traite de certains éléments non traités 
précédement, mais qui peuvent être importants pour 
la rédaction des programmes. 


Analyse des paramètres 


MS-DOS ne contient pas, comme sur le HP-71, de 
fonction permettant le contrôle et l'analyse des 
paramètres passés par la ligne de commande. Il 
faudra donc tout faire soi-même. 


Une copie de la ligne de commande est disponible 
dans la PSP, qui est une zone placée en mémoire 
juste avant le début du programme. 


Il est possible de connaitre l’adresse de cette zone en 
recourant à la fonction 51h du DOS : 


moy ah,51h 
int 21h 


En retour, nous avons dans le registre BX le segment 
pointant sur cette zone (l’offset étant toujours égal à 
Zéro). 


Il est aussi possible de connaitre cette valeur plus 
simplement, en lisant le contenu du registre ES, qui 
est initialisé au début de l'exécution. Mais cela doit 
être fait dans les premiers pas de notre programme, 
car nous (ou une fonction DOS) sommes suceptibles 
d'utiliser ce registre. 


Les champs qui nous intéressent dans cette zone sont 
le 128eme octet, qui contient le nombre de caractères 
de la ligne de commande, puis les 127 octets suivants 
qui contiennent le texte de cette ligne, y compris 
l'espace situé entre le nom du programe et le premier 
paramètre. La chaine est terminée par un caractère 
CR (code 13), non compté dans le nombre de 
caractères. 


La méthode la plus simple pour accéder à cette zone 
est, par exemple, d'écrire une routine de ce type (en 
supposant que ES contienne déjà l’adresse de la 
PSP) : 


mov di,128 sadresse ligne comm. 

cmp di,0 

jme no_arg :pas d’argument 

inc di saccès premier caract 
& straitement à définir 
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L’allocation dynamique de la mémoire 


Nous avons vu précédement comment réserver de la 
place dans le programme pour stocker des variables. 
Cependant ceci n’est interessant que dans le cas d’un 
bloc de données de taille relativement faible, car une 
telle zone est partie intégrante du programme. De 
plus, sa taille étant fixée une fois pour toutes, le 
programmeur devra généralement prévoir une valeur 
dépassant souvent l’utilisation réelle. 


Pour remédier à cela, il est possible de demander à 
MS-DOS de donner au programme un ou plusieurs 
blocs de données inutilisés, qu’il pourra utiliser à sa 
convenance sans crainte d’écrasement par d’autres 
programmes ou gestionnaires d'interruption. Une fois 
qu’on a plus besoin de ces blocs de mémoire, nous 
pouvons la rendre à MS-DOS. 


Nous pouvons assimiler le principe à l’utilisation des 
buffers sur le HP-71. La grande différence est que sur 
le HP-71 chaque buffer est identifié par un ID 
unique, permettant au programme "propriétaire" de 
toujours en retrouver l’adresse alors que, sous 
MS-DOS, nous devrons toujours conserver cette 
adresse dans une variable car nous n’aurons plus de 
moyen de la retrouver ultérieurement. De plus c’est 
cette adresse qui permettra au DOS d'identifier ce 
bloc mémoire au cours des opérations de 
modification de taille et de libération du bloc. 


Ces opérations sont accessibles par des fonctions 
DOS. L'unité de travail est le paragraphe de 16 
octets, ce qui veut dire que nous devrons diviser la 
taille en octets par 16. Si, par exemple, nous désirons 
utiliser une zone de données de 18000 octets, puis 
plus tard l’agrandir à 32000 octets et enfin l’effacer, 
nous utiliserons les instructions suivantes : 


buf_seg DW (?) ;stockage adresse du buffer 


mov ah,48h sfct d'allocation 
mov bx,(18000/16)+1 ;au moins 18000 oct 
int 21h sappel fonction 
ic error :si plus de place 
mov [buff_segl,ax  ;sauvegarde 
;du segment de 
:départ du bloc 
;(offset = 0) 


mov es, [buff_seg] 
mov di,45 
mov ax, [di] 


accès au 45e 
; octet du buffer 


mov ah,4Ah sfct modification 
;: de taille 
splacer adresse 
; du buffer en ES 
; (ceci permet au 
; DOS de savoir de 
;: quel buffer il 
: s'agit) 
mov bx,(32000/16)+1 ;au moins 32000 oct 
int 21h sappel fonction 
je error2 : Si Carry = 1 
; ->plus de place 
; Où segment non 
; alloué 


mov es, [buff_seg] 


moy  ah,49h sfct libération 

; du bloc 

;placer adresse 

; du buffer en ES 
; appel fonction 
ssi Carry = 1 

: -> segment non 
; alloué 


mov es, [buff_seg] 


int 21h 
je error2 


Il est à noter que nous devrons utiliser la fonction de 
modification de taille de bloc dans un cas précis. En 
effet, les programmes COM ont la particularité de se 
réserver la totalité de la mémoire, même si ils 
n’utilisent effectivement que 64 ko. Si désirons allouer 
un bloc de mémoire ou lancer un programme “fils”, 
nous devrons réajuster la taille du bloc utilisé par le 
programme de façon à ce qu’il coincide à sa taille 
réelle. Ceci peut être fait de la façon suivante : 


code segment para CODE’ 


assume cs:code 


start: mov ah,4Ah 
mov es,cs ses = segment de 
: départ du programme 
mov bx,offset fin ;bx = taille prgm 
; en octets 


mov cl,4 sconversion taille 


shl bx,cl ; en paragraphes 
inc bx 
int 21 ;on réajuste La 


; taille du bloc 
mov sp,offset fin 


mov ah,4Ch retour au dos 


int 21h 
DB 200h ;on se crée un espace 
espace pour La pile 
fin equ this byte 
code ends 
end start 


L'expression equ this byte, indique que la valeur de 
la constante fin est égale à l’adresse pointée par 
celle-ci, telle qu’elle sera calculée lors de l’édition de 
liens. Nous nous servons de cette valeur pour obtenir 
la taille du programme et y positionner la nouvelle fin 
du Bloc, grâce à la fonction de réallocation. 


Toutefois, le fait de réduire la taille de ce bloc 
provoque aussi la libération de la zone occupée par la 
pile. Il faut donc recréer un espace afin de l’y loger. 
Cela est fait en créant une zone de données (de 512 
octets dans notre exemple) et en repositionnant le 
pointeur de pile (le registre SP) à la fin de cette zone. 


Notons enfin que la fonction d’allocation, utilisée 
d’une façon particulière, nous permet d’obtenir de 
façon relativement simple la mémoire disponible. Il 
nous suffit d'écrire les lignes suivantes : 


mov ah,48h 

mov bx,FFFFh 

int 21h 

mov [mem_dispo] ,bx 


Ceci nous permet d'obtenir, dans la variable 
mem_dispo, la mémoire disponible en paragraphes. En 
réalité, il ne s’agit pas réellement de la taille de la 
mémoire disponible, mais plutôt celle du plus grand 
bloc non utilisé. En effet, si MS-DOS a effectué 
beaucoup de créations et d’effacements de blocs de 
données, il est possible que la mémoire vive soit 
fragmentée en plusieurs morceaux, entre lesquels 
nous pouvons trouver des bloces de données utilisés 
par d’autres programmes. Mais ceci est en fait plus 
significatif, car ce que nous avons besoin de savoir la 
plupart du temps est justement la taille du plus grand 
bloc possible de mémoire. 


Bibliographie 


Avant de vous laisser, je pense qu’il est temps de vous 
indiquer quelques un des nombreux livres traitant du 
fonctionnement du PC, et l’assembleur. Je ne vous 
citerai donc que ceux dont je me sers habituellement. 
Si vous vous sentez d'attaque à étudier le 
fonctionnement en détail de lIBM PC, allez tout 
droit voir "La bible PC" aux éditions Micro 
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Application. Vous y trouverez en plus de nombreux 
exemples de programmes en assembleur. 

Si vous ne désirez que les références aux différentes 
fonctions du DOS et du BIOS, il existe un livre au 
format de poche (donc à bas prix) aux éditions 
Marabout : Aide mémoire des interruptions 
MS-DOS. 

En ce qui concerne l’assembleur pur, je n’ai pas de 
référence précise, si ce n’est les notices du Turbo 
Assembleur qui sont très bien faites. 


Ceci termine pour aujourd’hui cet article. N’hesitez 
pas à m'écrire (adressez votre courrier au club) si 
vous désirez avoir des précisions suplémentaires sur 
ce qui a été traité aujourd’hui. 


Jacques Belin (123) 


Ne vous battez plus 


avec votre eæelevlateur: 


ACHETEZ on HP! 
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Meke 


not war ! 


love, 





LE COIN DES CODES 
nouvelle présentation 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. C’est pour 
cela qu’a été créé, il y a quelques années, le Coin des 
Lex, spécialement destiné au HP-71. 


Depuis, d’autre machines (telles que la HP-48 ou le 
HP95) sont apparues, nécessitant souvent d’entrer 
certains programmes de façon équivalente. 


Nous avons donc décidé de créer un nouveau Coin 
des codes, commun à toutes les machines et 
bénéficiant d’une présentation homogène. Celle-ci est 
pratiquement équivalente à ce qui se faisait pour le 
HP-71. 


Nous avons aussi profité de cette occasion pour 
modifier la méthode de calcul du checksum, qui 
n’était pas suffisament fiable. 


Notes importantes : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. 


Par exemple, ne tentez pas d’entrer un programme 
HP48 dans un fichier MS-DOS à laide du 
programme MAKEDOS. Vous obtiendrez un fichier que 
vous ne pourrOez pas transférer dans la HP48. 


D'autre part, vous ne trouverez dans cette section que 
les programmes faisant moins de 1200 octets, soit 
environ une page. En effet, nous pensons qu’au delà 
de cette taille, personne n’aura le courage d’entrer un 
programme sous cette forme. A titre indicatif, un 
programme compilé en langage C possède une taille 
minimum de 5000 octets. Pour obtenir ces 
programmes, il vous faudra donc vous adresser 
directement au club. 


Programmes HP48 


Par rapport aux méthodes habituelles sur cette 
machine, notre méthode effectuant un calcul local du 
checksum en fin de chaque ligne, permet de faciliter 
la recherche d’erreurs, par rapport à une même 
recherche dans une chaîne de plusieurs centaines 
d’octets. 


Ceux qui n’ont pas encore de programme assembleur 
pourront procéder de la manière suivante: 


- par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes 
RAM pour devenir ROMSs. 

- tapez le programme ASSCOb. 


ASSCOD 


# 7B74h 
879.5 octets 


« RCLF HEX 64 STWS -2 SF 1 CF U“ ’tmpcod’ STO 
“nombre d'octets! ## INPUT OBJ+ 2 * 16 
DUP2 / IP 3 ROLLD MOD DUP2 
IF 
THEN 1 + 
END 3 ROLLD 1 + 4 ROLL 
#0h+nrfs 

« 1 SWAP 
FOR i 
DO 
uligne u 
UO0" ji R-B +STR 3 OVER SIZE 1 - 
SUB + DUP SIZE DUP 2 - SWAP SUB + DUP 


# à chaîne commençant 

chaine“ + à par + (newline) 

” à chaîne commençant 

____ ______-_"@ par + (newline) 
à et composée de 4 
à groupes de 4 
à CHR 95 obtenus par 
a a shift bleu x 
à 1 espace séparant 
à 2 groupes 

ni< 

IF 

THEN 1 r SUB 

END + 1 FC?C 

IF 

THEN Ç "M a } 

ELSE ROT 


END INPUT O0 OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + 
NEXT s + DUP # FFFh AND "#1" 
Fu a “somme de controle 
somme de controle @ précédée et suivie 
+ a de + (newline) 
a puis 3 CHR 95 
a (a shift bleu x) 
6 ROLL SWAP + € "M a } 
INPUT + OBJ+ == 
IF 
THEN 1 
ELSE DROP 1000 .5 BEEP 1 SF 0 
END 
UNTIL 
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END ’s’ STO ’tmpcod’ DUP RCL 
ROT + SWAP STO 
NEXT f STOF 
» 
tmpcod 
WHILE DUP # # POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + MAXR 
SUB + 
END DROP 
"GROB 8 “ 
OVER SIZE 2/1" + 
+ SWAP + STR-+ 
# 4017h SYSEVAL 
# 56B6h SYSEVAL 
DROP NEWOB 


à si vous avez ASC-+ 

à JPC 79 page 14 

à vous pouvez remplacer 
à placer ces lignes 

a par ASC- 

a (plus rapide) 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme LISTCOD. 
2- donnez le nombre de octets (1/2 oct. compris). 


3- tapez chaque ligne de codes avec un espace entre 
chaque groupe de 4 caractères. 

4- tapez la somme de contrôle. S’il y a erreur la ligne 
sera réaffichée pour correction après émission d’un 
BEEP 

5- stockez le programme assemblé dans la variable 
donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes HP-71 


MAKELEXZ est la nouvelle version de MAKELEX, qui 
nous a servi auparavant. Bien que totalement réécrit, 
afin de simplifier l'implantation de la nouvelle 
présentation des lignes par groupes de quatre 
quartets et le calcul du checksum, le principe du 
programme reste le même. 


L'utilisation, identique à l’ancienne version est la 
suivante : 


1- Lancer le programme : RUN MAKELEX2 

2- Entrer la taille du fichier. 

3- Entrer les listes de codes puis le checksum. En cas 
d’erreur corriger la ligne que vous venez d’introduire. 

4- Une fois que toutes les lignes sont entrées, éteindre 
le HP-71, puis le rallumer. 


Notez bien que vous devrez conserver l’ancienne 


version (MAKELEX) pour entrer les programmes parus 
dans les anciens JPC. 
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Programmes MS-DOS 


Afin d’être utilisé par tous, nous avons décidé d’écrire 
un programme pouvant être exécuté avec le GWBASIC. 
Il devrait cependant être facile de le convertir pour un 
autre programme (QBASIC, Turbo BASIC...). 


L'utilisation est sensiblement la même que pour 
MAKELEXG : 


1- Lancer le programme : GWBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du GwBAsiC en exécutant la commande System. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


Ce mois ci... 


Aujourd’hui, nous vous présentons dans ce premier 
Coin des codes les programmes HP-48 parus ce 
mois-ci, ainsi que les programmes HP-71 et MS-DOS 
(de moins de 1000 octets) parus dans les derniers 
PE: 


Programmes HP48 
REV Paru dans JPC 80 
PIL Paru dans JPC 80 


POKE Paru dans ce numéro 
ADDR Paru dans ce numéro 
EDIV Paru dans ce numéro 
FFACT Paru dans ce numéro 
Lex HP-71 


CERCLEX Paru dans JPC 78 


Programmes MS-DOS 


TJR8 * Paru dans JPC 78 

FF Paru dans JPC 78 

TJPS Paru dans JPC 79 
Guy Toublanc (276) 
Jacques Belin (123) 


Programme MAKELEX2 


10 SFLAG -1 Q DIM E$[40],C$[40] à LC OFF à PURGE AH @ INPUT "Nb d’octets : ":N 
20 CREATE DATA AH,1,N-4 @ B=HTD(ADDR$S("AH")) Q A=B+37 à N=2*N+37 à N1=N DIV 16 
30 L9=MOD(N,16)+(MOD(N,16) DIV 5) à S=0 à P$=n---- ---- ---. ---. e 

40 IF MOD(N,16)=0 THEN N1=N1-1 Q L9=LEN(PS$) 

50 FOR X=0 TO N1 

60 IF X=N1 THEN P$=P$[1,L9] 

70 C$=P$ 

80 M=S à DISP DTH$(X)[3]; à INPUT ": ",C$;C$ à INPUT " sm = ","---u:D$ 

90 FOR Z=1 TO LEN(C$) 

100 IF C$S[Z,2Z]#" " THEN M=M+(Z-(Z DIV 5))*NUM(C$[Z]) 

110  NEXT Z 

120 IF D$#DTH$(MOD(M,4096))[3] THEN PRINT “Erreur de somme! à BEEP à GOTO 80 
130 IF X=0 THEN E$=C$ 

140 IF X=1 THEN ES=ES$S£CS 

150 IF X=2 THEN C$=C$ [7] 

160 IF X>1 THEN GOSUB 210 

170 S=M 

180 NEXT X 

190 C$=ES$ à A=B à GOSUB 210 à CFLAG -1 
200 END 
210 FOR Z=1 TO LEN(C$) 
220 IF C$[(Z,Z]#" " THEN POKE DTH$(A),C$[Z,Z] àQ A=A+1 
230 NEXT Z à RETURN 


Programme MAKEDOS.BAS 


10 INPUT "Nom du fichier : ",NOM$ : INPUT "Nombre d’'octets : ",N : N=N*2 
20 OPEN NOM$ FOR OUTPUT AS #1 : CLOSE #1 : KILL NOMS 

30 OPEN "bin.tmp" FOR OUTPUT AS #1 : S=0 : P$=u---- ---- ---- ---- . 

40 NLINES=N\16 : LENLAST=(N MOD 16)+(C(N MOD 16)\5) 

50 IF (N MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS$) 

60 FOR X=0 TO NLINES 

70 IF X=NLINES THEN P$=LEFTS$S(P$, LENLAST) 

80 c$=P$ 

90 X2$="O00"+HEXS(X) : PRINT RIGHT$(X2$,3);":1;> 

100 Y=CSRLIN : LOCATE Y,6 : PRINT C$; : LOCATE Y,6 : INPUT "n,C$ : Y=Y-1 
110 LOCATE Y,27 : PRINT “ sm = ---" : LOCATE Y,33 : INPUT “#,D$ 

120 M=S 

130 FOR Z=1 TO LEN(CS$) 

140 IF MID$S(CS,Z,1)<>" " THEN M=(M+((Z-(Z\5))*ASC(MIDS(CS,Z,1)))) MOD 4096 
150 NEXT Z 

160  D2$="O0"+HEXS(M) : D2$=RIGHT$(D2$,3) 

170 IF D2$<>D$ THEN PRINT “Erreur de somme" : BEEP : GOTO 90 

180 FOR Z=1 TO LEN(C$) STEP 2 

190 IF MID$(C$,Z,1)=" U THEN Z=Z-1 : GOTO 230 
200 CH=ASC(MIDS(C$,2,1))-48 : IF CH>9 THEN CH=CH-7 
210 CL=ASC(MID$S(CS,Z+1,1))-48 : IF CL>9 THEN CL=CL-7 
220 PRINT#1,CHR$((16*CH)+CL ); 


230 NEXT 2 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME “bin.tmp" AS NOM$ : END 
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REV 


# ECSCh 


000: 
001: 
002: 
003: 
004: 
005: 


PIL 


0123 


D9D2 
9020 
D30E 
7088 
6433 
B213 


# 2DA2h 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
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0123 


D902 
9020 
2A25 
509F 
écBD 
cic1 
A000 


: 18F1 


9760 
7414 
0D75 
1171 
1501 
c461 
7146 
7407 
0442 


0123 


D902 
B000 
ASOC 
4660 
3131 
F848 
8115 
6158 
8034 
0821 


OECE 
FD55 
c370 
1303 
70B9 
0 


4567 


OFDE 
B6CC 
F6A2 
1167 
30F6 
6E90 
8FD5 
4660 
1471 
7135 
3211 
161A 
161€ 
15F1 
CSEE 
1451 
3082 


4567 


OFDE 
D9D2 
CD20 
8FB9 
174A 
1cD8 
B19E 
0171 
1504 


CHP48) 

42.5 octets 
4567 89AB CDEF sm 
8100 040D E3B 
0226 SOFE  C70 
2023 0122 856 
3750 FE22 55E 
F06B 2130 21F 
514 

(HP48) 

136 octets 

89AB CDEF sm 
8144 B46D FOC 
1E07 A29C E3D 
AEC8 1226 C57 
FE30 SAC2  AE1 
E309 5D26  90A 
16CC D202  6F1 
F301 0810 351 
cc12 08FB  1F0 
3406 1691  D72 
1790 831A  ACD 
015F 115C 7A7 
6CSE EAEB  87C 
D5CD 111C 70D 
15C1 1611 318 
8F2D 7601 190 
C480 9415  EAA 
130B 2130  A37 
CHP48) 

75 octets 

89AB CDEF sm 
8111 9203 CCC 
0322 3030 834 
F500 08F1  5C2 
7601 3014 103 
D014 3818  E4D 
1743 1935  B09 
A808 1868 898 
160C D54E 690 
4230 B213  23A 
667 


30 


ADDR 
# B811h 


0123 


000: D9D2 
001: 6C26 
002: 3E71 
003: 4113 
004: 0B21 


EDIV 
# EE66h 


0123 


000: D9D2 
001: 9D20 
002: BA29 
003: 2090 
004: 1204 
005: 9226 
006: B26D 
007: 16D9 
008: 5322 
009: 3991 
O0A: F345 
008: Cc818 
00C: 2639 
00D: 29F3 
00E: 6070 
00F: 1263 
010: 2090 
011: 2BC8 
012: FF30 
013: 1309 
014: 309F 
015: O8FC 
016: 317A 
017: 1AF2 
018: 8BFA 
019: 0111 
01A: 0A80 
01B: 8140 
01C: 7760 


01F: 620A 
020: 1941 
021: 1008 
022: 194F 
023: AC95 
024: 1AA4 
025: 80CF 
026: B1A5 
027: A9AA 
028: AF01 


4567 


O5AA 
ccp2 
7414 
58D9 
30 


4567 


02BF 
8813 
F345 
0006 
0D90 
A217 
9020 
D200 
3082 
6090 
3223 
2130 
916D 
45CC 
D534 
9916 
0006 
1821 
D9D2 
OBA2 
345C 
1523 
21AF 
2030 
7C97 
8408 
8142 
D5SAF 


89A8 


81FE 
0320 
7137 
4150 


89AB 


8105 
0053 
3223 
9118 
2013 
028C 
9612 
09A2 
130F 
2005 
0821 
D9D2 
9020 
D209 
5821 
D9D2 
9408 
3082 
0009 
9F34 
cp20 
7731 
7111 
2AF5 
C80E 
8FFO 
E80C 
8101 


B667 0607 6507  CO7 
01D: 2507 8407 A407 
01E: 2407 8307 E207 


C29F 
9OCA 
0657 
DA19 
5081 
ESOF 
2081 
CFA 


3AD6 
411 
1419 
4cD1 
0B1A 
860€ 
A011 
A0D9 


CHP48) 

35 octets 
CDEF sm 
F309  F1F 
0014  AD9 
1741  67A 
Cc95 469 
896 

CHP48) 

343 octets 
CDEF sm 
040D E06 
4590  A58 
OCCD 8CA 
2130 42A 
236A 105 
8188 E7C 
6399  B66 
9F34 906 
3126 51E 
3459  2AB 
302B EE3 
0961 BEO 
O09A  95E 
0000 5c3 
30F3 2B9 
OCCD 25F 
2130 DD2 
1309  A18 
A288 776 
5322  43B 
3510 118 
1091 CDs 
978C AC9 
0D90 85E 
465F  7C6 
8502  4B3 
FAC5 431 
0020 FEC 
0407 7E4 
6307 409 
480A 2CE 
0810 F54 
&2EA  D61 
100€ B78 
SCFA  AE7 
1890 914 
800F 718 
1C00 550 


c007 1199 7650  1DD 
59F2 08D3 4150 E74 


029: 
02A: 


FFACT 
# 513 


1431 
5345 


9h 


0123 


: D902 


3920 
0410 
E22D 
c1B82 
078B 
DBAA 
D2A2 
BF16 
A192 
1EED 
3392 
0021 
C2A2 
BA1F 
F189 
08FB 
F2D7 
FO014 
0169 
F28F 
5000 
5318 
808c 
0111 
0145 
1188 
FéCé 
c576 
1150 
4169 
1A05 
2041 
F6BF 
1138 
1001 
1188 
F6D5 
A131 
1130 
F310 
70CF 
781F 
4814 


3 1CF5 


1648 
1821 
B213 


3317 915F F01D 
8213 0821 30 


c71 
1CE 


CHP48) 


378.5 octets 


4567 89AB CDEF 


0E16 
1000 
CFCE 
9020 
1305 
F1ED 
1EED 
SOFA 
c981 
CF13 
A190 
0100 
OEED 
76BA 
0cB1 
691C 
9760 
6014 
2102 
1420 
2BF2 
Oc2C 
F2D7 
1321 
1411 
1743 
F6BF 
C214 
0119 
OAF2 
1180 
8FB9 
448F 
6108 
A8D0 
1ACE 
F6BF 
D711 
1798 
169C 
315F 
5CE1 
cF11 
E148 
BE8F 
08CD 
305D 
0 


3278 
0000 
13CE 
14BB 
BF22 
2A2E 
A1éc 
192C 
EEDA 
2BA1 
DA19 
0000 
A187 
16c9 
B969 
cp20 
8FE3 
3130 
1741 
éBF2 
108A 
68F8 
6014 
018F 
3134 
4500 
6BF6 
5E21 
1351 
1081 
7AFO 
BD01 
éBFé 
164C 
1401 
1048 
éBFé 
1130 
FCO7 
0131 
014C 
81AF 
1131 
1401 
2D76 
BBF1 
F229 


BF13 
0000 
22AF 
1808 
D902 
EDA1 
981E 
F178 
1768 
éc9B 
2CF1 
0000 
2819 
B176 
1D8B 
BD10 
1608 
169A 
4313 
BF2B 
F234 
DA60 
2164 
276 
C2A2 
00DA 
BF6B 
748F 
7930 
1913 
1421 
13A7 
BF6B 
F5BC 
10E4 
AE79 
BF6B 
169C 
6011 
1790 
1611 
3D90 
1791 
7118 
0142 
8DBF 
3632 


DD8 
778 
79C 
636 
4c2 
550 
5D8 
45B 
46F 
383 
2DA 
cac 
ACB 
92D 
931 
780 
55B 
10 
CBD 
c90 
AAC 


58c 
30A 
F67 
BFE 
D5D 
B6E 
6FD 
394 
081 
EC6 
F6éE 
F49 
BCB 
808 
cée7 
942 
5D5 
2BE 
EDF 
F38 
B62 
7F9 
58F 
6DF 
384 
679 


CERCLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
01D: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
02B: 
O2C: 
02D: 
02E: 
02F: 


0123 


3454 
802E 
ED20 
F020 
08D0 
B349 
259% 
cé31 
4AF2 
200F 
0745 
0E10 
1149 
F011 
DCSE 
8F87 
F470 
8FFF 
8418 
FA10 
8BE7 
DEOA 
8780 
3018 
E2CE 
4303 
9800 
195E 
9céc 
c206 
24DB 
0707 
5FD7 
4A80 
119F 
0404 
OA7D 


5EC1 
7031 
F2DA 
30C2 
A340 
A850 
137C 
6A0D 
0E0E 
EOEB 


4567 


2534 
0000 
0868 
0000 
O0DF 
4253 
E474 
8424 
D617 
A038 
0305 
ABFD 
021 
A49D 
2088 
1F08 
FA5 
89FF 
5373 
A863 
0104 
D7D6 
F108 
4146 
1080 
E206 
7DA2 
012A 
6cA2 
119€ 
1198 
CE06 
4606 
119F 
A109 
0E79 
2049 
A109 
29FA 
1211 
CaCé 
1350 
8200 
E048 
2135 
59F1 
1590 
8c15 


89AB 


C454 
0000 
1910 
0000 
006A 
4C45 
911F 
7085 
F90C 
D91F 
6600 
9630 
8FDC 
8027 
FFFA 
4384 
1066 
F8F8 
4F47 
4006 
DEEE 
067F 
8FBC 
164D 
2109 
1196 
430F 
CED5 
0346 
6109 
A660 
10AD 
F7F0 
A109 
6420 
2011 
D761 
8700 
1296 
8E28 
c2cé 
6111 
8BE4 
0081 
3015 
5B08 
0701 
1007 


CHP-71) 


365 octets 
CDEF sm 

8502  COF 
0000 5F1 
0000 OBC 
0000 A58 
000D  7AE 
4817  43E 
F8FB  42D 
2F82 100 
B086 F7D 
B08D EC4 
304A  A91 
7810 785 
6305 587 
1308 2A1 
BFFF 5B8 
17C6 31F 
A10F  0E4 
71F0  OF5 
0851 D67 
DAO7  AB7 
8FD3 BAD 
0F10  9CD 
6311 7E4 
7110 3C9 
112C  OBD 
0407 CSE 
BOE1 A98 
12AE  A37 
0000  S5ED 
112€ 203 
7C30 004 
BD3A FAE 
7808 E94 
6010 BDO 
8407 7ED 
AFAT 5C5 
0119  22F 
0850 E2B 
8200  AC5 
BF00 827 
1321 59A 
11BC 248 
C303 F83 
C81C EMA 
5S0A0  9F1 
71E0 7BF 
B8C0 4E8 
03F E9E 


TJR8.COM 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00): 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
01D: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
02B: 
O2C: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 


(MS-D0S) 

526 octets 

0123 4567 89AB CDEF sm 
E970 0100 0000 0000  9c2 
B4CF C5CO CCC8 D4B5  A23 
C1CD C90D D1D9 D8D0  AA8 
DCD7 D3C2 CECA C3CB  C3D 
EFDA DBD6 BBD2 3FBE EOD 
C4D5 Céc7 B7B6 F9FA  F24 
B93F 3FF8 F7B8 FBFD 16C 
3F7F 3F7C 7CEO A2A1  O0D0O 
3F3F 3F3F 3FBF BC3F  27E 
3F3F 3F7C F62B E2E1 252 
3F3F 3F3F 3F3D 3FBA  33B 
E4E3 A4AS A33F E5A6  2C5 
A73F 3F3F 3F7C E63F 337 
E7DE DFE8 EAE9 F3F1 481 
FOED AEAD B2B1 B0OA8 481 
2DFE SFFS F4BD 3F3F SAC 
B3AB F23F 3F3F FCAO 645 
EBO2 544A 80FC 0574  3E8 
5A80 FC40 750D 83FB 300 
0475 08Cé 0607 0100  E34 
EBOF 9080 FC44 755F  CD6 
3C03 755B 83FB 0475  AAO 
5683 F900 7451 9C50  76D 
5351 5206 5755 560E 428 
078B EA8B F132 FF3E 488 
8ASA FF80 FB7F 760C  45D 
80EB 8026 8A87 0801  OF0 
3E88 42FF 4E75 E85E ODA 
5D5F 075A 595B 589D FD1 
EB1D 9080 FA7F 7617  E35 
9c50 5356 1E0E 1F8A D11 
DA80 EB80 32FF 8A97  Cé2 
0801 1F5E 5B58 9D2E BBD 
FF2E 0301 ODOA 544A  94C 
5238 2065 7374 2069 538 
6E73 7461 6C6C 822E 382 
OD0A 240D 0A54 4A52  OCE 
3820 6573 7420 6482 C87 
6A85 2069 6E73 7461  94D 
écéc 822E OD0A 2450 672 
6F75 7220 6C65 2064  2B0 
8273 6163 7469 7665 F31 
7220 3A20 2054 4A52  B4B 
3820 550D 0A24 544A 870 
5238 2065 7374 2064  40C 
8273 6163 7469 7682  07B 
OD0A 24BE 8000 803C DBC 
0074 4346 4680 3C55  A57 
753C B821 35CD 2126 791 
817F 0254 4A75 2326  3F0 
8816 0301 26A1 0501 F3C 
8ED8 B821 25CD 218C  DBF 
C326 8E06 2000 B449 BOA 


035: CcD21 
036: OE1F 
037: 2188 
038: 35CD 
039: 4A74 
O3A: 8C06 
03B: BA88 
03C: BAOC 
03D: 3F02 
03E: 0281 
03F: 31CD 
040: cD21 
041: 21B8 


FF.COM 


0123 


000: B20C 
001: cp21 


TJPS.COM 


0123 


000: E9E3 
001: ODOA 
002: 266B 
003: 5300 
004: 0000 
005: 0000 
006: 0000 
007: 0000 
008: 0000 
009: 0000 
00A: 0000 
008: 0000 
00C: 0000 
00D: 0000 
00E: 0000 
00F: 0000 
010: 0000 
011: 0000 
012: 0000 
013: 0000 
014: 0000 
015: 0000 
016: 0250 
017: 551E 
018: 8ED8 
019: 03E9 
01A: B840 
01B: 8B1C 
01C: B800 


8EC3 B449 
BASE 02B4 
004C CD21 
2126 817F 
3088 2135 
0501 891€ 
0188 2125 
02B4 09CD 
B409 CD21 
04D3 EA42 
21BA 2302 
BA3F 02B4 
004C cD21 


4567 89AB 


B405 CD21 


4567 89AB 


0100 0000 
1826 6830 
3153 1826 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
539C 5053 
5606 5788 
33F6 803C 
A800 C604 
008E D88E 
81FB B403 
BOEB 0490 


CD21 981 
O9CD 926 
B821  é6p1 
0254 383 
cp21  OD1 
0301 CAO 
CD21 9FB 
21BA 906 
BAOC 814 
B800 593 
B409 281 
O9CD 1E0 
323 
(MS-DOS) 
10 octets 
CDEF sm 
B4&C  E9F 
OC4 
(MS-D0S) 
636 octets 
CDEF sm 
0000  9F8 
531B 738 
6832 422 
0000  DAD 
0000 72D 
0000 OAD 
0000 A2D 
0000 3AD 
0000 D2D 
0000 6AD 
0000 O02bD 
0000 9AD 
0000 32D 
0000 CAD 
0000 62 
0000 FAD 
0000 92D 
0000 2AD 
0000 C2D 
0000 5AD 
0000 F2D 
00EB B08 
5152  6DF 
5000 30C 
0175 019 
01FB Eîé 
6300 BE2 
7506 924 
B800 628 
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01D: B88E COBE 4E00 8B3C 572 02E: F6cé 0400 5F07 5E1F 74A 03F: CD21 2681 7F02 5053  35A 


01E: BE4A 0088 1CBE 8400  36F 02F: 5D5A 595B 589D CFOD 787 040: 7523 268B 1603 0126 EE8 
01F: 8A3C FEC7 8BEB 8CC8 4E1 030: 0A54 4A50 5320 6573 373 041: A105 018E D8B8 0525  C53 
020: 8ED8 80FB 2877 06BA  3B6 031: 7420 696E 7374 616C OEE 042: CD21 8CC3 268E 062€  A93 
021: OF01 EBOF 9080 FB50  1F9 032: 6C82 2E0D 0A24 ODOA  EFA 043: 00B4 49CD 218E C3B4  9A7 
022: 7706 BAOA O1EB 0490 F76 033: 544A 5053 2065 7374  AE9 044: 49CD 210E 1FBA D102 827 
023: BA14 0184 40BB 0400  BDB 034: 2064 826A 8520 696E 879 045: B409 CD21 B800 4CCD 75F 
024: B905 O0CD 2188 C5BE  B9F 035: 7374 6160 6C82 2E0D 6F5 046: 2188 0535 CD21 2681 41F 
025: 1901 268A 1580 FA20 8E1 036: OA24 506F 7572 206€ 41A 047: 7F02 5053 742B 8C06 155 
026: 7302 B22E 8814 4647 599 037: 6520 6482 7361 6374 FFA 048: 0501 891E 0301 BAAF 051 
027: 47FE C875 EDC6 040D  4BF 038: 6976 6572 203A 2020 B73 049: 0188 0525 CD21 BA7F  FB3 
028: 46C6 O40A B440 BBO4  25C 039: 544A 5053 2055 OD0A 851 04A: 02B4 O9CD 21BA B202 DAC 
029: 008B CD32 ED80 C102  O03A 03A: 2454 4AS50 5320 6573 425 04B: B409 CD21 BA7F 02B1  C32 
02A: BA19 01CD 2188 CDFE 135 038: 7420 6482 7361 6374 004 04C: 04D3 EA42 B800 31CD  A81 
02B: CD8B E975 C8BA 0801 F55 03c: 6976 820D 0A24 BE80 E15 04D: 21BA 9602 B409 CD21 853 
02C: B440 BB04 0089 0700 875 03D: 0080 3C00 7443 4646  A09 04E: BAB2 02B4 O9CD 2188  6C0 
02D: CD21 B850 008E D833  90C 03E: 8030 5575 3CB8 0535 738 04F: 004C CD21 ECS 
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Le Journal JPC est le bulletin de liaison entre les 
membres de lAssociation "PPC Paris”, régie par la loi 
de 1901 et indépendante de tout constructeur ou 
société commerciale. Le Club est éditeur de JPC, et 
son siège social est au 56, rue Jean-Jacques Rousseau, 
75001 Paris. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Les informations et programmes parus dans ce 
journal sont publiées "Tels quels" et ne peuvent en 
aucun cas engager la responsabilité de 
Hewlett-Packard ou de PPC Paris. Hewlett-Packard 
se réserve le droit de ne pas répondre aux questions 
concernant le sujet de certains articles. 


Les programmes publiés peuvent être utilisés 
librement. Cependant, ils ne peuvent être vendus ou 
fournis dans un ensemble commercialisé, sous 
quelque forme que ce soit, sans l’accord écrit de 
l’auteur ou de PPC Paris. 


Directeur de la publication : Jacques Belin 
Numéro ISSN : 0762 - 381X 


Veuillez adresser toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01. 


